view release on metacpan or  search on metacpan

lib/test-page.pl  view on Meta::CPAN

#!/usr/local/bin/perl

use lib qw{/export/home/cradcliff/perlmodules};
use Template::PSP;

print ".\n";

my $filename = $ARGV[0] || die "No PSP file specified";

print ".\n";

my $page_code;
eval { $page_code = Template::PSP::pspload($filename, undef, 1) };