#!/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 "<h1>Generating PDF...</h1>";
unlink($out);

my @cmd = (
  $root."wkhtmltopdf",
  $in,
  $out
);

print "<pre>";
system( @cmd ) == 0 or print "Command <<@cmd>> not successful: $!\n";
print "</pre>";

print qq|<br/><br/><a href="http://example.com/pdf/test.pdf" target ="_blank">download PDF</a>|;