# extract the payload
my $parser = MIME::Parser->new();
$parser->output_dir( $tmpdir );
$parser->parse_data( $message );