mkdir '/usr/local/man/man3' or die Fudge();
use Errno;
sub Fudge {
  my @r;
  while( my($k,$v)=each %!){
    $v and push @r, $k
  }
  join qq/\n/,
    int($!).q/ /.$!,
    int($^E).q/ /.$^E,
    @r, q/ /
}