my @filename = split("\n", `ls`); my $total = scalar(@filename);