Though, honestly, I'd just use cog's Filesys::DiskUsage and be done with it. In fact, I have. ;-)