List empty directories

#!/usr/bin/perl -w
use strict;
#
# List empty directories
# perl administration posix
#
 
 
# set start path
 
my $startpath = shift || '.';						
 
 
sub checkpath {
	my $path = shift;
	# open path or die
	opendir my($dir), $path	
		or die "Can't open $path : $!\n";				
	# debug
	#print "I am here: $path\n";
	# get directory content but skip . and .. (to avoid circular looping)
	my @content = grep {$_ !~ /^\.\.?$/} readdir $dir;
	# print directory name and exit if empty
	if (!@content) {
		print "$path\n";
		return;
	}
	# recurse trough directories
	foreach my $subpath (grep { -d "$path/$_"} @content) {
		checkpath($path.'/'.$subpath);
	}
}
 
checkpath($startpath);