I wonder if this is more of a Procmail question than Perl... I do that through Postfix, in a file called /etc/postfix/master.cf. It automatically parses out any header fields I want, and passes it to any script. Procmail instructions are here.