#!/bin/perl
use v5.12;
use warnings;

       my $in = $ARGV[0];
       if (! defined $in) {
          die "Usage: $0 filename";
       }


       my $out = $in;
       $out =~ s/(\.\w+)?$/out/;

       if (! open $in_fh, '<', $in ) {
          die "Can't open '$in': $!";
          }

       if (! open $out_fh, '>', $out) {
          die "Can't write '$out': $!";
          } 

##</code><code>##

Global symbol "$in_fh" requires explicit package name at ./exer_9_2 line 14.
Global symbol "$out_fh" requires explicit package name at ./exer_9_2 line 1