print "Content-Type: application/pdf\n";
print "Content-Disposition: attachment;filename=file.pdf\n\n";
binmode STDOUT;
print $file;