Select Code to Download

use strict;
use warnings;
use 5.010;
...
my @whole_file = <$fh>;

say 'Number of lines:', scalar @whole_file;