If all you care about is the size of the directory, just use stat:

$ perl -e 'print +(stat("/tmp"))[7]'
49152
[download]

I have no idea whether stat() works on Windows or not, but it's not mentioned in perlport.