Select Code to Download

use strict;
use warnings;
my $x;
for $x (1 .. 3) { last if $x == 2 }
print $x;

Use of uninitialized value in print at - line 5.