#!/usr/local/bin/perl
use strict;
my @ls = `ls`;
my $lsct = scalar(@ls);
foreach (@ls) {
   print "line: ",$_;
}
print "\$lsct: $lsct\n\n";