use strict; 
 
use Data::Dumper qw( Dumper ); 
 
 
$| = 1; 
  
 
 
my $directory = "c:/Novell"; 
 
my $size = 0; 
 
$size = sizeOfFilesInDirectory($directory); 
 
my $subDirCount = getSubDirectories($directory); 
 
my @subDirs = getSubDirectories($directory); 
  
 
 
print "Total size of all files in $directory: $size\n\n"; 
 
print "Number of SubDirectories: $subDirCount\n\n"; 
 
print ("SubDirectories:\n\t",join("\n\t",@subDirs),"\n\n") if $subDirCount > 0; 
  
my $dirHash = totalDirectoriesAndFiles($directory); 
 
print "Dumper output:\n\n"; 
 
print Dumper($dirHash); 
  
 
sub sizeOfFilesInDirectory { 
    my $directory = shift; 
    my $directorysize = 0; 
  
    opendir DIR, $directory; 
    my @files = grep { !(/^\.+/) && !(-d "$directory/$_") } readdir DIR; 
    closedir DIR; 
  
    foreach my $file(@files){ 
        $directorysize += -s "$directory/$file"; 
    } 
  
    return $directorysize; 
} 
  
sub getSubDirectories { 
    my $directory = shift; 
    opendir DIR, $directory; 
    my @dirs = grep { !(/^\.+/) && (-d "$directory/$_") } readdir DIR; 
    closedir DIR; 
  
    my $dirCount = @dirs; 
  
    return wantarray?@dirs:$dirCount; 
} 
  
sub getFiles { 
    my $directory = shift; 
    opendir DIR, $directory; 
    my @files = grep { !(/^\.+/) && !(-d "$directory/$_") } readdir DIR; 
    closedir DIR; 
  
    my $fileCount = @files; 
  
    return wantarray?@files:$fileCount; 
} 
  
sub totalDirectoriesAndFiles { 
    my $directory = shift; 
    my $dircount = 0; 
    my $filecount = 0; 
    my $hashout = {}; 
  
    my @dirs = getSubDirectories($directory); 
    $dircount = @dirs; 
    my @files = getFiles($directory); 
    $filecount = @files; 
  
    $hashout->{$directory} = { 'NAME' => $directory, 
                               'SUBDIRS' => [ @dirs ], 
                               'FILES' => [ @files ], 
                               'SUBDIR_COUNT' => $dircount, 
                               'FILE_COUNT' => $filecount, 
                               'BYTES' => sizeOfFilesInDirectory($directory), 
                             }; 
  
    foreach my $dir(@dirs){ 
        my $returnedHash = totalDirectoriesAndFiles("$directory/$dir"); 
        $hashout = { %$hashout, %$returnedHash }; 
    } 
  
    return $hashout; 
}