$ perl -Mautodie -e"open my$in, q!<!, q!echo|! "
Can't open 'echo|' for reading: 'Invalid argument' at -e line 1