my $directory = "/irgendwas/";
my @files = glob("$directory/*");
my $sum = 0;
$sum += -s $_ foreach @files;
print "Die groesse von $directory ist $sum\n";