#!c:/Perl/bin/perl

binmode(STDOUT);
print "Content-type: image/jpeg\n\n";
open (F,"<apollo08_earthrise.jpg");
binmode(F);
while(<F>){
	print;
}
close(F);