This works for me:

        use MIME::Parser;

        # Create a new MIME::Parser object
                $parser = MIME::Parser->new();
        # Specify the location we'll put our output
                $parser->output_dir("./");
        # Change how nameless message-component files are named:
                $parser->output_prefix("msg");
        # Open the full message
                open(MSG, "< msg-full");
        # Passs the open file handle to our parser
                 $parser->parse(\*MSG);
        # Close the file
                close(FH);
[download]

--
TTFN, FNORD

xaphod