How do I list the specific types of files in current directory in Perl on windows?

use Cwd;

my $directory = getcwd();

opendir (DIR, $directory) or die "Can't open directory \"$directory\" - $!";
my @filelist = grep(/\.csv$/i, readdir(DIR));;

foreach my $file (@filelist) {
print "$file\n";
}

closedir(DIR);