Select Code to Download

my $n = 0;
while (1) {
...
  # report 'Argument list too long' for a large enough environment.
  $st == 0;
}