#!/usr/bin/perl
$size = 1024;
print "Content-type: Image/jpeg\n";
print "Content-length: $size\n\n";
read(DATA,$image,$size);
print $image;
__DATA__