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