And if yu really want to do it in Perl that you can always use the Shell module that is standard with Perl:

use Shell;
                                                                      
+          
my $foo = wc('-l', '.bash_profile');
                                                                      
+          
print $foo;
[download]

/J\