Select Code to Download

my $i;
my @ar = 0 .. 10;
...

#!/usr/bin/perl
use strict;
...
        if ( $ctr == $_[0]) { $ctr = 0 } else { no warnings; next }
    }
}