как в перле получить список файлов?

• perl и ls,alchie, 12:15 , 09-Июн-04
  • perl и ls,Simps, 12:33 , 09-Июн-04
    • perl и ls,pth, 17:53 , 09-Июн-04

>как в перле получить список файлов?

<*>

print  foreach (<*>) ;
эквивалентен
ls

>>как в перле получить список файлов?
>
><*>
>
>
>print  foreach (<*>) ;
>эквивалентен
>ls

Кусок скрипта
#!/usr/bin/perl
$root = GetDir('/usr/home/simps');

sub GetDir {
                my $Path = shift;
                my @DirContent;
                opendir(DIR, "$Path");
                @DirContent = grep { !/^\.+$/ } readdir(DIR);
                closedir(DIR);
                foreach $file (@DirContent) {
                # Попробуй для файлов ключ -f
                    if (-d $Path."/".$file) {
                        print $Path."/".$file."\n";
                        GetDir("$Path/$file");
                        }
                }
}

Скрипт обходит папку вместе с вложенными

perldoc File::Find