sub getdirsize {
        my( $dir ) = @_;

        my $size = 0;

        opendir( my $dh, $dir )
                or die "Cannot opendir '$dir': $!\n";

        for my $i ( readdir( $dh ) ) {
                my $s = -s "$dir/$i";

                $size += $s;
                $size += getdirsize( "$dir/$i" ) if -d "$dir/$i" && $i !~ /^\.\.?$/;
        } # for

        closedir( $dh );

        return $size;
} # getdirsize