open(INFILE, "$filename");
    binmode(INFILE);
    sysread INFILE, $filedata, $filesize;
close(INFILE);

#unbuffer STDOUT and print the file to the user
$| = 1;
print "Content-Type: image/jpeg
Content-Length: $filesize\n\n";
print $filedata;