opendir $mydir, "/somedir"; chdir $mydir; print `du -ha $mydir`; closedir $mydir;