#!/usr/bin/perl

## #!/usr/local/bin/perl

select(STDOUT);
$| = 1;
$Lastgif = 4;
$Path = "/user/neko/.html-data/p+p/bmw/cgi-bin/images/$ARGV[0]";
$Bound = "---AnyRandomBoundaryString---";
$HTTP = "HTTP/1.0 200\n";
$Header = "Content-type: multipart/x-mixed-replace;boundary=$Bound\n";
$Content = "Content-type: image/gif\n";
$Boundary = "\n$Bound\n";

print $HTTP;
print $Header;
print $Boundary;

while (1){
foreach $Countgif ( 1 .. 4 )
        {
        #$File = "$Path$Countgif.gif";
        # print( STDERR "$File\n");
        #next unless -e $File;
        print $Content;
        print "\n";
        #open(FILE, "<$File");
        #@Stat = stat(FILE);
        #$Size = $Stat[7];
        print( STDERR "999\n");
        #read(FILE, $Data, $Size);
        #close(FILE);
        #print $Data || exit;
        print $Boundary;
}
}

exit;