#!/home/erikg/bin/perl
#use 5.010;
&marine;
sub marine {
        my $counter = 0;
        while ($counter < 10) {
                state $n = 0;
                $n += 1;
                print "\n$n";
                $counter++;
        }
}