#!/usr/bin/perl

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