Select Code to Download

#! perl -slw
use strict;
...
while( <> ) {
    print;
}

package doit;

...
my @data = 1..10;
print $doit->enumerate( \@data );