#!/usr/bin/perl -w
#################################################################################
## Author:      BRIAN HUNTER
## Date:        8/10/2020
## Email:       brian@sutechy.com
#################################################################################
use strict;
my $file = "/etc/passwd";
my $cnt = `wc -l < $file` or die "COUNT FAILED: $!\n";
chomp($cnt);
print "COUNT: $cnt\n";