Select Code to Download

 cat text.txt|wc -l| sed 's/^[ \t]*//'|sed 's/[ \t]*$//'

#!/usr/bin/perl

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