readdir STDOUT or die Fudge();
sub Fudge {
    join "\n",
    join(' ', int $!, $! ),
    join(' ', int $^E, $^E ),
    ( grep { $!{$_} } keys %! ),
    ' ';
}
__END__
9 Bad file descriptor
6 The handle is invalid
EVENT_SYSTEM_CAPTUREEND
ERROR_INVALID_BLOCK
EBADF
EMR_SETWINDOWEXTEX
EDGE_BUMP
EMARCH_ENC_I17_IMM9D_SIZE_X
  at - line 1.