if (glob "$dir/*") { print "glob $dir: yes\n"; }

    if (myglob "$dir/*") { print "myglob $dir: yes\n"; }