#!/usr/bin/perl
#
# testing last
#
use strict;
use warnings;

my $i=0;
my $file="test.file";
foreach my $count (1 .. 10) {
  open (INF,"$file") or die "Unable to open '$file': $!";
  $i++ && m/2/ && last while (<INF>);
  close INF;
  $i=0;
  print "here:$count\n"
}
print "END($i)\n";
exit;