The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

#!perl
use strict;
use warnings;

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