Список файлов в папке perl

opendir(DIR, "./depends/data/");
my @files = grep(/\.del$/,readdir(DIR));
closedir(DIR);

# print all the filenames in our array
foreach my $file (@files)
{
print "$file\n";
}