Finding directory and sub-directories individual size in Perl

Hi,
Can anyone redirect to an existing thread or provide some info on how to find the size of a directory and it's sub-directories using a single script ?

I tried finding a similar thread but in vain.

I'm a newbie and any help would be greatly appreciated.

Thanks in advance.

Is it homework?

---------- Post updated at 05:02 PM ---------- Previous update was at 04:56 PM ----------

more links

Thanks for the info