$ perl -le 'opendir my $fd, "."; my @files = readdir $fd; closedir $fd; print scalar @files'
48
$ perl -le 'my @files = <*>; print scalar @files'
7
$ _