perl -e " open $dirname, q/../ or die $!, $/, $^E, $/ "
bash: !,: event not found