use Cwd qw(); use strict;
my $current = Cwd::cwd();
print `du -ha $current\n`;