/usr/share/doc/libcgi-xmlapplication-perl/examples/example2.pl is in libcgi-xmlapplication-perl 1.1.5-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | #!/usr/bin/perl
# (c) 2001 ph15h
# example2.pl
use lib qw( ../../ );
{
# this script will figure by its calling name, which module to load
my ( $package ) = ( $0 =~ /\/?(\w+)\.pl/i );
require "$package.pm";
# some times there are already information available at this level.
my %ctxt = (-test=>1);
my $script_class = new $package;
$script_class->setStylesheetPath( "your/path" );
$script_class->run(\%ctxt);
}
|