Look for all files that end with the extension .pl

    

    #!/usr/local/bin/perl -w

    while (glob("*.pl"))
    {
       print "File: $_\n";
    }

1.	Get file list from a specific folder
2.	Get file list under C:/* (C:\\*)
3.	glob pack
4.	List all the files in a directory
5.	Uses <*.pl> to read all .pl files in current directory
6.	The file list in current folder

Look for all files that end with the extension .pl : glob « File « Perl