use CGI qw(:standard);

sub sendHtmlResponse
{
  print "path=$ENV{PATH}\n";
  my $ret = system ("t.pl");
  if ($ret != 0) {
    print "ERROR: calling t.pl failed, ret=[$ret], error=$!\n";
  }
}
print header();
sendHtmlResponse ;

##</code><code>##

#!perl
print "Hello World!\n";