Help for this page
% perl5.6.1 -MO=Deparse -pe '$_=$.' LINE: while (defined($_ = <ARGV>)) { ... continue { die "-p destination: $!\n" unless print $_; }
% perl5.00503 -MO=Deparse -pe '$_=$.' LINE: while (defined($_ = <ARGV>)) { ... continue { die "-p destination: $!\n" unless print $_; }