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

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

##</code><code>##

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