get a copy of the script

#!/usr/bin/perl
# ---------------------------------------------------------------------------
sub main
{
open(IN, "find /usr/include -name errno.h |") ||
fatal("find failed: $!");
@errno = <IN>;
close(IN);
foreach $filename (@errno)
{
open(ERRNO, "< $filename");
while ($line = <ERRNO>)
{
next if ($line !~ /^#define/);
($var, $num) = ($line =~ /#defines+(S+)s+(d+)/);
$errno{$var} = $num;
$errno{$num} = $var;
}
close(ERRNO);
}
foreach $err (@ARGV)
{
if ($err !~ /^d+$/)
{
$err = $errno{$err};
}
$! = $err;
$def = $errno{$err};
print "$def ($err): $!n";
}
}
# ---------------------------------------------------------------------------
sub fatal
{
print STDERR @!, "n";
}
# ---------------------------------------------------------------------------
main();