PROCESS THE MAIL - TO SCRIPT

Hello,

I want to send email to special(_at_)mydomain(_dot_)com and have a filter rule 
like
:0
* ^Received(_dot_)*special(_at_)mydomain(_dot_)com
{

     :0 c
     ! randyk(_at_)virtualisys(_dot_)com

     :0
     | someperlscript.pl
}

For some reason it all works except the PERL script doesn't seem to do
anything with the contents of the message. Does anyone know the correct
syntax to use inside the PERL script to receive that PIPE?

Thanx,
Randy Katz