~ $ perl -e '1 while <>' non-existent-file Can't open non-existent-file: No such file or directory at -e line 1.