#!/usr/bin/perl -w

use strict;

my $root  = 'c:/cluster1/';
my @dirs  = ($root);
my @files;

for my $path (@dirs){
    opendir ( DIR, $path ) or next; # skip dirs we can't read
    while (my $file = readdir DIR) {
        # skip the dot files
        next if $file eq '.' or $file eq '..';
        # skip symbolic links to avoid infinite loops 
        next if -l $path.$file;
        if ( -d $path.$file ) {
            # add the dirs to our dir list (full path)
            push @dirs, $path.$file.'/';
        } 
        else {
            # add the files to file list       
            push @files, $path.$file;      
        }     
    }
    closedir DIR;
}

print "Directory list\n\n";
print "$_\n" for sort @dirs;

print "\n\nFile List\n\n";
print "$_\n" for sort @files;