Create Mail::Message from <STDIN>

[webamoeba]

Hi,

I am attempting to update an old script that handles email messages and strips out the attachments and delivers them to the correct folders depending upon their names.

The current setup is a nasty hack, and I'm having difficulties getting my head around it!

Looking at CPAN there seem to be a number of helpful mail modules. But how do I create a Mail::Message Object from the <STDIN> input? i.e. it isn't plit up into headers body etc... Is there an easy way to do this?

Thanks

 

[webamoeba]

PLEASE HELP!!!! am going crazy!!!

Obviously I can read that input into an array or even wriote it out to temp file... But how Do I then parse it as a message??????

Thanks.