eval {
        eval {
            # Allow interrupts by alarms and 'child' events
            local $SIG{'CHLD'} = sub { die("CHLD EVENT\n"); };
            local $SIG{'ALRM'} = sub { die("ALRM EVENT\n"); };

            alarm(10);

            if (! $chld_flag) {
                $cmd = <STDIN>;
            }
        };
    };