...
my $parser = new MIME::Parser;
$parser->output_dir("unpacking");
$parser->parse_open("receiving/message-1.msg");
...