my $count = 0;
  while ( my $line = get_line_no() ) { # Line 2
      print "Line $line\n";
      last if $count++;                # Line 4
  }
  
  sub get_line_no { (caller)[2] }
  __END__
  Line 2
  Line 4