eval {
    local $SIG{'ALRM'} = sub { $STATE{'EVENT'} = 1;
                               die('ALRM EVENT'); };
    local $SIG{'CHLD'} = sub { $STATE{'EVENT'} = 1;
                               die('CHLD EVENT'); };

    if (! $STATE{'EVENT'}) {
        $cmd = <STDIN>;
    }
};