eval {
    local $SIG{ALRM} = sub { die "TIMEDOUT" };
    alarm(10);
    <command>
    alarm(0);
};
if ($@) {
    die $@ unless $@ =~ /TIMEDOUT/;
    # command timed out
    ...
}
...