my $foo = qx( wc $filename -l );