eval {
    local $SIG{ALRM} = sub { ... };
    alarm $timeout;
    eval {
        # operation you're waiting on
    };
    alarm 0;
};
alarm 0;
die $@ if $@;