#!/usr/bin/perl print "Content/Type: image/png\n\n"; open( PIC, "../images/pic1.png" ) or die "Can't open: $!\n"; print while ; close( PIC ); exit 0; __END__