# @list = glob(expression); # The expression needs to be a shell-style wildcard, such as *.pl for all file names ending in .pl. #!/usr/bin/perl -w @list = glob("*.pl"); print ".pl files: @list";