#!/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 "
"; system( @cmd ) == 0 or print "Command <<@cmd>> not successful: $!\n"; print ""; print qq|