use strict;

my $dir = "c:\\temp\\";

opendir (DIR, $dir) or die "Unable to open dir $dir : $!";
my @files = readdir(DIR) or die "Unable to readdir $dir : $!";
closedir DIR;

for (@files) { print "$_\n" }