Hi rnewsham , I have the same issue with elavarasan. Please help me solve it. I've been working on this for more than a week now. Please see my codes below
#!/usr/bin/perl5
use HTML::HTMLDoc;
use strict;
use warnings;
use CGI;
my $cgi=new CGI;
print $cgi->header( -type => 'application/pdf' );
my $htmldoc = new HTML::HTMLDoc('mode'=>'file', 'tmpdir'=>'/tmp');
$htmldoc->set_permissions('all');
$htmldoc->set_html_content(qq~<html><body><table border=1><tr><td cols
+pan=2>A PDF file</td></tr><tr><td>Column 1</td><td><img src='freight-
+charge.jpg'></td></tr></table></body></html>~);
# $htmldoc->set_input_file($filename); # alternative to use a present
+file from your fs
my $pdf = $htmldoc->generate_pdf();
print $pdf->to_string();
$pdf->to_file('foo.pdf');
|