Help for this page

Select Code to Download

Select or download this

 use Win32::DirSize;
 open (FILE, "02_dir.txt") || die "can not open file\n";
...
       print "Dir size = $Size $SizeUnit \n";
    }
 }

Select or download this

 use Win32::DirSize;
 open (FILE, "02_dir.txt") || die "can not open file\n";
...
       print "Dir size = $Size $SizeUnit \n";
    }
 }