You might also take a look at another posting on df output parsed by perl for disk usage: What's eating all your disk space?