#!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);