/usr/share/doc/libcgi-xmlapplication-perl/examples/example4.pl is in libcgi-xmlapplication-perl 1.1.3-7.
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 21 22 | #!/usr/bin/perl
# (c) 2001 ph15h
# example4.pl
#
# show how to pass script configurations
#
use lib qw( ../../ );
{
# well i leave it up to your phantasy what to do here :)
my %config = ( -DUMMY=>"the dummy" );
require "example4.pm";
my $script_class = new example4;
# we could do some tricks with CGI.pm functions before run ...
# and pass our prepared information to run().
$script_class->run( \%config );
}
|