Select Code to Download

while (<FILE>) {
    chomp;
...
        last;
    }
}

while (<>) {
    if ( /^testpoint\s*$/ ) {
        last;
    }
}