perl -e ' open $dirname, q/../ or die $!, $/, $^E, $/ '
(no error)