DB<105> $!=666
 => "Unknown error 666"

  DB<106> $!=666;scalar readdir X or warn "$!\n"
Unknown error 666

  DB<107> $!=undef;scalar readdir X or warn "$!\n"
Bad file descriptor