I am using PDF::Create to dynamically create PDF on the fly.
That works.
I end my code with the $pdf->close;
and the pdf file is created.
I now want to display it in a browser. Here is the code I tried.. but i will not work.
-
# Wrap up the PDF and close the file to create the PDF
-
# File Name is Add_Multi_Digit.pdf
-
-
$pdf->close;
-
-
# everything works to here... file is created
-
# in the same directory as the script
-
-
# open and display file to browser.
-
-
open(PDF, "Add_Multi_Digit.pdf") or die "could not open PDF [$!]";
-
binmode PDF;
-
my $output = do { local $/; <PDF> };
-
close (PDF);
-
-
print "Content-Type: application/pdf\n";
-
print "Content-Length: " .length($output) . "\n\n";
-
print $output;
-
