Select Code to Download

sub create_counter {
    my $counter = 0;
...
while (&$counter < $Some_Value) {
    &DO_Stuff;
}

sub create_upper_bounded_counter {
    my ($upper_bound) = @_;
...
while (&$bounded_counter) {
    &Do_Stuff;
}