foreach (grep /^\d+$/, @ARGV) {
  $! = $_;
  print "$_: $!";
}