{ use File::Glob ':glob'; print "======with File::Glob ':glob'======\n"; for (glob "$folder/*.txt") { print "$_\n"; } print "Press "; <>; }