use File::stat; $st=stat("/tmp"); print $st->size;
# 4536

# This is perl, v5.8.8 built for i686-linux