open my $fh, shift or die "Cannot open file: $!\n";

##</code><code>##

open my $fh, $ARGV[0] or die "Cannot open file: $!\n";