sub is_empty
{
    ! ( () = glob $_[0] . '/*' );
}