DB<6> $x=0;for (1..Inf) { print; last if $x++ >5} 
Range iterator outside integer range at (eval 10)[/usr/share/perl/5.10/perl5db.pl:638] line 2.
 
  DB<7> sub Inf() {1000}
 
  DB<8> $x=0;for (1..Inf) { print; last if $x++ >5} 
1234567