# cat image1
#!/usr/bin/perl
use File::Copy;
print "HTTP/0.9 200 OK\r\n";
print "Content-Type: image/jpeg\r\n";
print "\r\n";
copy "/var/www/cgi-bin/PTF//WP_20140410_19_01_49_Pro.jpg", \*STDOUT;
#