__BEGIN__
#!/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";

__END__