use strict;
    use warnings;
    use autodie qw( open close );

    # ...

    my $file = shift; # The input file name is a command-line argument

    open my $fh, '<:encoding(ASCII)', $file; # Or whatever the correct character encoding is

    # ...

    close $fh;