sub cgi_sub(){
   print $_[0];
}

sub mod_perl_sub {
   print $_[0];
}