#!/usr/bin/perl use HTML::HTMLDoc; $html = new HTML::HTMLDoc('mode'=>'file', 'tmpdir'=>'/tmp'); # Start instance $html->set_page_size('letter'); # set page size $html->set_bodyfont('Arial'); # set font $html->set_fontsize(8.0); # set fontsize $html->set_permissions('no-copy'); $html->set_permissions('no-modify'); $html->set_permissions('no-annotate'); $html->set_html_content( qq{ Hello World...
Hello Image }); $html->title(); $html->set_header('.', 't', '.'); $html->set_footer('D', '.', '/'); $pdf = $html->generate_pdf(); # generate document $http_headers_out{'Content-Type'} = 'application/pdf'; print $pdf->to_string();