Just remove them. If they're not empty, rmdir will fail. In this case, you don't care that it fails, ignore the error, and keep going.

use File::Find;
finddepth(sub { rmdir $_ if -d }, $some_path);
[download]

Update: added 'depth' as per merlyn's correction.

You have to use finddepth, not find, because you need to act on the current directory last. Consider a directory that is empty except for containing two other empty directories.

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.

If you have it installed! Not always possible, especially for small code like this.

If you have it installed! Not always possible, especially for small code like this.

Its always possible

Yes, even you can use CPAN, A Guide to Installing Modules, Top 11 (GOOD) reasons not to use someone else's Modules, Top Seven (Bad) Reasons Not To Use Modules

perl -e 'while(<./*>){@a=<$_/*>;rmdir if -d && ! $a[0]}'
[download]

Try using the opendir and readdir functions along with a file test. Something like:

opendir (DIR, ".") or die "Cannot open the current directory: $!";
my @files = grep {$_ ne '.' and $_ ne '..'} readdir DIR;
close (DIR) or die "Cannot close the current directory: $!";

foreach my $file (@files) {
    if (-d $file) {
        opendir (SUBDIR, "$file") or die "Cannot open the sub director
+y: $!;
        my @subfiles = grep {$_ ne '.' and $_ ne '..'} readdir DIR;
        closedir(SUBDIR) or die "Cannot close the sub directory: $!";

        unless (@subfiles) {
            unlink("$file");

        }
    }
}
[download]

I have not actually tried this to be sure it works. Furthermore, it only deletes empty directories in the current directory. You would need to convert it into a recursive subroutine if you wanted to mine further into the directory tree.

#!/usr/bin/perl
use File::Find;

finddepth sub {
   return unless -d;
   rmdir($_);
}, @ARGV;
[download]

Traverse( "./", 1 );
sub Traverse { # returns 0 for empty else 1
    my $dir = shift;
    my $top = shift; # flag for different treatment of top dir
    unless( opendir my $dh, $dir ) {
        warn "$!: $dir\n";
        $top or return 1;
    }
    for my $file ( grep !/^\.\.?/, readdir $dh ) {
        my $path = "$dir/$file";
        if ( -d $path ) {
            if ( Traverse( $path, 0 ) ) {
                $top or return 1;
            }
            else {
                rmdir $path;
            }
        }
        else {
            $top or return 1;
        }
    } 
    closedir $dh;
    return 0;
}
[download]