break in Perl exit while loop

#!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 />’;