#!pel
my $string =  "C:\cFiles";

my $list = `dir /b $string`;
print $list