#!/usr/bin/perl

for ($i=0; $i<3; $i++)
{
  if ($i == 1) { last }
  print "i = $i\n";
}
# prints the following:
# i = 0