Select Code to Download

my $file = 'text.txt';
open my $fh, '<' , $file or die $!;
...
close $fh;

print scalar @data;

system( 'cat text.txt|wc -l| sed \'s/^[ \t]*//\'|sed \'s/[ \t]*$//\'' 
+);