$ perl -e " open $dirname, q/../ or die $!, $/, $^E, $/ "
Permission denied
Access is denied

$ perl -e " open $dirname, q/../ or die join qq/\n/, $!,$^E,grep( { $!{$_} } keys %! ) "
Permission denied
Access is denied
ERROR_INVALID_DATA
EMARCH_ENC_I17_IMM5C_INST_WORD_POS_X
EMR_SETBRUSHORGEX
EVENT_SYSTEM_CONTEXTHELPEND
EACCES at -e line 1.