Select Code to Download

my $flag=0;
for($i=0; $i<$glob; $i++){
...
        print $_;
    }    
}

my ($email,$mesgid)= ("","");
for($i=0; $i<$glob; $i++){
...
    }    
}
print $email,$mesgid;

while (<TEXT>){
...
}