sub dirEmpty {
   my $d = IO::Dir->new( @_ );
   return defined( $d && $d->seek( 2 ) && scalar $d->read );
}