#!/usr/bin/perl 
use strict; 
use warnings;

# Using Active State Perl 5.20.2

use File::Util;  #version 4.132140
my $f = File::Util->new(); 
my @d = $f->list_dir("C:/test"); 
print join " ", @d, "\n";

__END__
. .. anothertestdir bar bar2