use strict;
my @dirlines = `dir`;
my $dirsize = scalar @dirlines;
foreach (@dirlines) {
   print "$_";
}
print "\$dirsize: $dirsize\n";