ActiveState's Perl doesn't implement alarm. If the operation that may take a long time is going to be I/O based, you might want to look into select instead.

bbfu
Black flowers blossum
Fearless on my breath