Select Code to Download

my $n;
for (1..10000000) 
...
{
    state $n = $_**2;
}

#!/usr/bin/perl -w
use strict;
...
12
13
14