List all the files in a directory

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

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

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

List all the files in a directory : glob « File « Perl