http://www.perlmonks.org?node_id=952478


in reply to Unix size again
in thread Unix size

opendir(my $fo, $ARGV[0]);
chdir $fo;
print `du -sk`;
closedir $fo;

__END__

usage:
perl script.pl /home/pandabeer 
perl script.pl /etc

[download]

In Section Seekers of Perl Wisdom