die if $@ && $@ ne "alarm\n"; #### die $@ if $@ && $@ ne "alarm\n";