use strict; use File::Basename; use PDF::Create; use Test::More tests => 2; use Config; my $pdfname = $0; $pdfname =~ s/\.t/\.pdf/; my $cginame = File::Spec->catfile(dirname($0) . "/09-cgi-script.pl");