open(PDF, "LeasevsBuy.pdf") or die "could not open PDF [$!]";
binmode PDF;

close(PDF);

print "Content-Type: application/pdf\n";
print "Content-Length: " .length($output) . "\n\n";
print <PDF>;