Uses <*.pl> to read all .pl files in current directory
#!/usr/bin/perl -w @list = <*.pl>; print ".pl files: @list";