$ touch temp.txt

$ mkdir dir.txt

$ perl -le 'print scalar @{[<./*.txt>]}'
2