my $infile = $ARGV[0];
infile ($infile);

sub infile {

open( my $infile, '<', $ARGV[0] ) or die "cannot open file: $!";
# ...