#!/store/bin/perl -w

$time=localtime(time);

#open(FIL, ">>/home/pvv/h/kim/incoming/logg");
#printf FIL $time."\n";
#foreach $e (sort keys %ENV) {
#    printf FIL $e." = ".$ENV{$e}."\n";
#}
#printf FIL "\n";
#close(FIL);

print "Content-type: image/gif\n\n";
#print  '<IMG src=\"/pics/planet.gif">';

open(FILL, "/home/pvv/h/kim/web-docs/pics/planet.gif") || die;
#open(FILL, "~kim/web-docs/pics/planet.gif") || die;
@pic = <FILL>;
print @pic;
close(FILL);