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

##</code><code>##

line: hello.cgi
line: obsfu.pl
line: test.pl
line: test.pl~
$lsct: 4

##</code><code>##

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