#!/bin/perl 
 
use strict; 
use warnings; 
 
use CGI; 
 
my $q = new CGI; 
 
print $q->header; 
 
eval { 
   local %SIG; 
   $SIG{ALRM}= 
     sub{ die "timeout reached, after 20 seconds!\n"; }; 
   alarm 20; 
    
   #sleep (60); 
   system("/opt/bea/domain/fsa/scripts/start.sh"); 
 
   alarm 0; 
}; 
 
alarm 0; 
 
if($@) { print "Error: $@\n"; } 
 
exit(0);