my $string=`wc -l $filename`;
my ($file,$length)=split " ",$filename;
chomp($length);