#!/usr/local/bin/perl

use HTML::HTMLDoc;
my $htmldoc = new HTML::HTMLDoc();
$htmldoc->set_input_file($ARGV[0]);

$htmldoc->path($ARGV[1]);

my $pdf =  $htmldoc->generate_pdf();
$pdf->to_file($ARGV[2]);
#!/usr/local/bin/perl

use HTML::HTMLDoc;
my $htmldoc = new HTML::HTMLDoc();
$htmldoc->set_input_file($ARGV[0]);

$htmldoc->path($ARGV[1]);

my $pdf =  $htmldoc->generate_pdf();
$pdf->to_file($ARGV[2]);