#!/usr/bin/perl

use strict;
use warnings;

use Errno;

foreach my $err (keys (%!)) {
    $! = eval "Errno::$err";
    printf "%3d %20s %s\n", $! + 0, $err, $!
}
__END__