#    define opendir             PerlDir_open