Select Code to Download

my $counter = 0;
warn "\$counter initialized to <<$counter>>\n";
...
  warn "End of while block. \$counter is <<$counter>>\n";
}
warn "Loop terminated. \$counter is <<$counter>>\n";