Help for this page

Select Code to Download

Select or download this

for my $filename (@ARGV)
{
  open my $input, '<', $filename or die "Couldn't open $filename: $!";
...
    say $output translate($_);
  }
}