$SIG{ALRM} = sub { die "Script took too long.\n" };
alarm(60);    # Create alarm signal in 60 seconds.
# ... do long-running stuff.
alarm(0);     # Cancel the alarm