#!perl
use strict;
use warnings;
foreach my $i (1..50) {
my $square = $i * $i;
kill 2, $$ if $square > 100;
print "$square\n";
}
#!perl
use strict;
use warnings;
foreach my $i (1..50) {
my $square = $i * $i;
kill 2, $$ if $square > 100;
print "$square\n";
}