Select Code to Download

while (<>) {
     my_sub() if $. > $allowedlines;
     print;  # do the rest of your stuff
}

my $count =0;
while (<>) {
...
     }
     print;  # do the rest of your stuff
}