# Turns numerical return codes into text.  See perlvar.
sub get_system_error {
  local $! = shift;
  return "$!";
}

print "$_: ", get_system_error($_), "\n" foreach 1..50;