header and body as separate values to one script

I know when I use a recipe like this

:0
* ^TO_.blabla
{
        :0 whb
        |a_perl_script
}

I can pipe the email to a perl script and do stuff with it, but now I want
to put the header and body as seperate values to the script in one time.
Because I don't know how to seperate them using perl and I want to put some
email in a databse for later reference (like this mailing list).

Or does anyone know how to do it in perl.

_______________________________________________
procmail mailing list
procmail(_at_)lists(_dot_)RWTH-Aachen(_dot_)DE
http://MailMan.RWTH-Aachen.DE/mailman/listinfo/procmail