use Filesys::DiskUsage qw/du/;

my $fullpath = '/tmp/dir*';
my $sum = du({'sector-size' => 4096, 'symlink-size' => 4096}, glob $fullpath);