my $temppid = open (SYS, "/bin/tcsh $tempfilename | ") or die "$!";
   kill $temppid if (alarm (5)); 
   while (<SYS>)
   {
      print "[DEBUG] $_ <br>";
   }
   close SYS;