Select Code to Download

use 5.010;
use Path::Class qw(dir);

my $dir      = dir("/etc/httpd");
my $is_empty = $dir->stat && !$dir->children;