$SIG{ALRM} = \&timed_out;
	eval {
    alarm (30);
    system ($stop);
    alarm(0);     
	};
	if ($@ =~ /GOT TIRED OF WAITING/) {
		my  $kill='pskill' . " " . '\\\\' . $machine . " " . "psexesvc";
	system ($kill);

sub timed_out {
    die "GOT TIRED OF WAITING";
}