#!/usr/bin/perl
use CGI qw/:standard :html3/;
use CGI::Carp qw( fatalsToBrowser );
$CGI::POST_MAX=1024 * 100; # max 100K posts1
BEGIN {
if ( $ENV{PERL5LIB} and $ENV{PERL5LIB} =~ /^(.*)$/ ) {
# Blindly untaint. Taintchecking is to protect
# from Web data;
# the environment is under our control.
eval "use lib '$_';" foreach (
reverse
split( /:/, $1 )
);
}
}
use Acme::Spork;
use Bio::Tools::GuessSeqFormat;
print "Content-type: text/html\n\n";
print "Hello World !! It works.\n";
####
SetEnv PERL5LIB /home/monkfan/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi:/home/monkfan/lib/perl5/site_perl/5.8.5