#!/usr/bin/perl -w
use strict;
my $file = "/etc/passwd";
my $cnt = `wc -l < $file` or die "COUNT FAILED: $!\n";
chomp($cnt);
print "COUNT: $cnt\n";