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

    my $ent = $parser->parse_data ("$thismsg");
    print "here's the message :\n$thismsg\n";
    print "mime type is ", $ent->mime_type(),"\n";
    my @all_parts  = $ent->parts;
    foreach (@all_parts) {
        print "mime type is ", $_->mime_type(),"\n";
        my $head=$_->head()->as_string;
        if ($head=~/filename\="(.*?)"/) {print "Filename is $1\n"}
        print "header is $head\n";
        print "------------------done\n";
    }
    print "------------------done with messages\n";

}