Select Code to Download

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

#!/usr/bin/perl
use strict;
...
    };
    print "eval exited with this: ".$@."\n";
}

It is usually a mistake to intermix alarm( ) and sleep( ) calls. sleep
+( ) may be internally implemented in your system with alarm( ), which
+ will break your original alarm( )settings, since every new alarm( ) 
+call cancels the previous one.