For this sort of thing I like MIME:Parser which figures it all out for me. It parses the message and saves the attachments in the directory I give it.

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