Select Code to Download

@digits = (0..9);

while ($data = &func) {
    &munge ($data);
}

if (&setup) {
    while ($data = &advance) {
...
} else {
    ##  life sucks
}

while (&setup_and_teardown .. &advance) {
    &munge (&get_data);
}

#!/usr/bin/perl -w

...
    }
    print "========  end $i\n\n";
}