eval {
 local $SIG{ALRM}=sub{die "alarm\n"};
 alarm 600;
 $shell_out = system("./sh1.sh");
 alarm 0;
};
if($@) {
 die unless $@ eq "alarm\n";
}