Help for this page
my $dir = "//home//schmoe//somedir"; my $dirsize = -s $dir || die "can't stat dir $dir: $!";
`du -ks`
#!/usr/bin/perl -w ... my $sum = 0; find sub { $sum += -s }, @ARGV; print "@ARGV contains $sum bytes\n";