#!/usr/bin/perl
use strict;
use warnings;

chomp(my @list = `du -kh /mnt/edi/si51/documents`);
my $dltd = 0;
foreach my $line (@list) {
  my ($size,$path) = split /\t/, $line;
  $size =~ s/\D//g;
  if ($size == 0) {
    rmdir $path && $dltd++
  }
}

printf "%d directories deleted.\n",$dltd;