File Perl

print join ("\n", glob ('C:/*'));
print join ("\n", glob ('C:\\*'));