in reply to Disk size manager in perl?

some already written perl script to do this

Not exactly the same thing, but you might want to look at Filesys::DiskUsage and Filesys::DiskFree.