Select Code to Download

 $SIG{__DIE__} = sub {
    return if (defined($^S) && $^S); # in eval
...
        $lh->fatal($_[0]);
    }
};

select(16, [8], NULL, NULL, {tv_sec=10, tv_usec=0}) = 0 (Timeout)
stat("/etc/localtime", {st_mode=S_IFREG|0644, st_size=3687, ...}) = 0
...
<code>
strace: Process 4166 attached
restart_syscall(<... resuming interrupted poll ...>

use 5.016;
use strict;
...
    }
    return;
}