#!/usr/bin/perl

use strict;
use warnings;
use File::Size;

my $dir = shift @ARGV;
$dir = File::Size->new(
               dir            => $dir, 
               blocksize      => 2048,
               humanreadable  => 1
);
print $dir->getsize(), "\n";