my $parser = MIME::Parser->new();
$parser->output_to_core(1);
my $ref = $parser->parse_data(\$xmltrans);
my $zipfile = $ref->{ME_Parts}[0]{ME_Bodyhandle}{MBS_Data};