File Perl

#!/usr/local/bin/perl -w
    while (glob("*"))
    {
       print "File: $_\n";
    }