#!C:\Perl\bin\perl.exe
print “Content-type: text/html\n\n”;

$i = 1;
while ($i < 10) {
    if ($i == 5) {print ‘Break<br />’; last;} #use last, not break
    else {print ‘I am ‘, $i, ‘<br />’;}

    $i++;
}
print ‘I am ‘, $i, ‘<br />’;