open (COMMAND, '-|', "$Command");
while (<COMMAND>) {
    eval {
        local $SIG{ALRM} = sub { die("TimerTriggerStatus\n"); };
        alarm(10);
        ...