my $PICDIR = q{./pictures};

    ### get dir size
    use File::Size;
    my $fsobj = File::Size->new(
        dir            => $PICDIR,
        blocksize      => 1024,
        followsymlinks => 1,
        humanreadable  => 1
    );
     
   my $pic_dir_size = $fsobj->getsize();
   my $pic_dir_exist     = -e $PICDIR;

   print $pic_dir_size ."\n". $pic_dir_exist;