Select Code to Download

 for ($s;
      ^^
      useless

    my $s = 0;
    for (; $s<=$s_no; $s++)

    for (my $s=0; $s<=$s_no; $s++)

    for my $s (0..$s_no)