Select Code to Download

chomp( my @lines = <$infile> );

use File::Slurp;
my @lines = read_file( $infile, chomp => 1 );

my @lines = map { chomp; $_; $line_count++; } <$infile>;

my @lines = map { chomp; $_ } <$infile>;
my $line_count = scalar @lines;