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