#!/usr/bin/perl -W

use strict;
use warnings;

use feature 'say';

say 'one' until my $one = 1;

say $one;    ############# this is line 10

until (my $two = 2) {
    say 'two';
}

say $two;

##</code><code>##

Global symbol "$two" requires explicit package name at ./strict.pl line 16.
Execution of ./strict.pl aborted due to compilation errors.

##</code><code>##

Use of uninitialized value $one in say at ./strict.pl line 10.