Sophie

Sophie

distrib > Mageia > 4 > x86_64 > by-pkgid > 5dc176e705ef7c0d4bac80184969ef7f > files > 8

perl-CGI-XMLApplication-1.1.3-9.mga4.noarch.rpm

#!/usr/bin/perl

# (c) 2001 ph15h (GPL)

# This is an example for a cgi script. such a script should not look
# different than this. If you put all functionality into the
# application class this script stays clean and causes no problems
# while debugging at all. 
#
# the global structure of the script is extremly easy:
# 1. load your application class.
# 2. create an instance of your class with new
# 3. call the  function.  
#
# if it is to hard for you to type all the code by your self,
# feel free to rename this script and modify it as needed.

use lib qw( ../blib/lib );
use example1;

my $script_class = new example1;
run $script_class;
# or do it this way:
# $script_class->run();