#!/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();
$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');