my $length = `wc -l $filename`; chomp($length);