$SIG{ALRM} = sub {print "oh darn, timeout!; die "timeout";}
alarm(10);  #10 second "countdown"
somefunction();
alarm(0);  #disables alarm
# only get here if less than 10 seconds elapsed
# during somefunction()