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

__END__

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