#!/usr/bin/perl use strict; use warnings; use CGI::Carp qw(fatalsToBrowser); use utf8; my $RootAndSubDir = $ENV{'SCRIPT_FILENAME'}; $RootAndSubDir =~ s-(.*?)\/index.pl-$1/-g; my $root = "$RootAndSubDir"; my $in = $root."source.html"; my $out = $root."test.pdf"; print "Content-type: text/html\n\n"; print "

Generating PDF...

"; unlink($out); my @cmd = ( $root."wkhtmltopdf", $in, $out ); print "
";
system( @cmd ) == 0 or print "Command <<@cmd>> not successful: $!\n";
print "
"; print qq|

download PDF|;