Filesys-DiskUsage (0.05)

thanks a lot,
very useful module,
I think these module must go in standart perl5 distribution
my $total1 = du( { recursive => 0 } , <data/*.xml> );

my $total2 = du( { recursive => 0 } , <data/message.*> );
### $total1
### $total2

Nikolay Nishin - 2012-02-03T01:48:22