Select Code to Download

use strict;
while (<>) {
...
        print;
    }
}

use strict;
my ($firstfoundflag, $lastfoundflag);
...
        print;
    }
}