in reply to MIME::Parser filename

I think the non-deprecated way is to use the underlying filer object:
$parser->filer->output_prefix('my_prefix');

[download]

In Section Seekers of Perl Wisdom