Do not reinvent the wheel.

The modules Filesys::Df and Tie::DiskUsage (synonym for 'du') are attempts to approach such problems; both are available on CPAN.