Select Code to Download

foreach my$thismsg (@msgs){
    my $parser = new MIME::Parser;

...
    print "------------------done with messages\n";

}