print "Content-disposition: attachment; filename=$qstring\n";
print "Content-type: image/jpg\n\n";
open IMG, "<restricted/$qstring";
flock IMG, 1;
while (sysread(IMG, $buf, 512) > 0) {
        print $buf;
}
flock IMG, 8;
close IMG;