eval { 
 local $SIG{ALRM} = sub { die "alarm\n" };
 alarm $timeout_in_seconds;
 $mtd_prod_sqlQuery_delete->execute($mtd_replica_row[0]);
 alarm 0;
};
if ($@) 
{
	print "Delete from MTD Prod Timeout\n";
}