Select Code to Download

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

open my $INPUTFILE, '<', 'text.txt' or die "Can't open file!  $!";

my $line_count=0;
while (<$INPUTFILE>) { # read a line
    ++$line_count;     # increment counter
}

close $INPUTFILE or die "close error: $!";