use strict;
my $directory = '.';
print "\n\n";
print CountSize($directory);
print "\n\n";
sub CountSize {
 my $directory = shift;
 $directory .= "/*";
 my ($ask, $filesize,$item, $size, @raiz);
 @raiz = glob($directory);
 foreach $item (@raiz) {
   $ask = -d $item;
   if ($ask) {
     $size += &CountSize($item);
   } else {
     $size += -s $item;
   }
 }
 return($size);
}

##</code><code>##

use strict;
my $dir = '.';
print &dir_tree_size($dir) . "\n";
exit 0;

sub dir_tree_size {
  my $dir = shift;
  my ($i,$total);
  $total = 0;
  opendir DIR, $dir;
  my @files = grep !/^\.\.?$/, readdir DIR;
  for $i (@files) {
    if(-d $i) { $total += dir_tree_size($dir . "/$i") }
    else { $total += -s $i}
  }
  return $total;
}