[MacPerl] Folder Size?

[sweaver@bluenova.com (Scott Weaver)]

How do I get the real size (bytes used as given by Info) of a folder?

I have checked the FAQ and all the other docs that I can find, but nothing
seems to provide an way to get anything other than the size (data fork
only) of a file.

The stat() function was my first choice but it only provides data fork size
which is not very helpful for MacOS files. The -s file command does the
same thing.

Has anyone come up with a way to get this information? If it is not
directly available at the folder level, a means to get the size of each
file in the folder would be fine. Of course, this would need to be
recursive to handle subfolders.

If this has been discussed already and is available elsewhere, please just
email me and give me a pointer to the info. If not, and anyone has ideas on
how this might be approached, send it to the list so we can all see and
comment.

If it matters, I am currently using MacPerl 4.1.8 but I have downloaded the
perl5 version and am getting ready to switch over.

TIA,
Scott Weaver
sweaver@bluenova.com