Qual a melhor (idioma) para falhar o script perl (executado com -n / -p) quando o arquivo de entrada não foi encontrado?

$ perl -pe 1 foo && echo ok
Can't open foo: No such file or directory.
ok

Eu realmente gostaria que o script perl falhasse quando o arquivo não existe. Qual é a maneira "correta" de fazer com que -p ou -n falhe quando o arquivo de entrada não existe?

A opção -p é apenas um atalho para agrupar seu código (o argumento após -e) neste loop:

LINE:
  while (<>) {
      ...             # your program goes here
  } continue {
      print or die "-p destination: $!\n";
  }

(-n é o mesmo, mas sem o bloco continuar.)

O <>operador vazio é equivalente a readline *ARGV, e isso abre cada argumento sucessivamente como um arquivo para leitura. Não há como influenciar o tratamento de erros dessa abertura implícita, mas você pode fazer com que o aviso seja fatal (observe, isso também afetará vários avisos relacionados à opção -i):

perl -Mwarnings=FATAL,inplace -pe 1 foo && echo ok

Defina uma bandeira no corpo do loop, verifique a bandeira no bloco END no final do oneliner.

perl -pe '$found = 1; ... ;END {die "No file found" unless $found}' -- file1 file2

Observe que ele só falha quando nenhum arquivo foi processado.

Para relatar o problema quando nem todos os arquivos foram encontrados, você pode usar algo como

perl -pe 'BEGIN{ $files = @ARGV} $found++ if eof; ... ;END {die "Some files not found" unless $files == $found}'