FrontPage

#!C:/Perl/bin/perl.exe

$file = "output.png";
$len = -s $file;

if ($len == 0 ){
    printf "Content-type: text/html;\n\n";
    printf "%s<BR>",`ls`;
    printf "no such file. %s",`ls -la ./`;
    exit;
}

printf "Content-type: image/png\n";
printf "Content-length: %d\n\n",$len;

binmode STDOUT;
open(DATA,$file);
binmode DATA;
read(DATA,$buf,$len); 
print $buf;
close(DATA);

exit;