use File::Spec;

my $dir = 'c:/test/';
opendir ORIG, $dir
  or die "Couldn't read '$dir': $!";
my @listDir = map { File::Spec->catfile( $dir, $_ )} readdir(ORIG);
closedir ORIG;

print $_
  for @listDir;