#!/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~| A PDF file |
| Column 1 |  |
~);
# $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');