You should not use this script. It allows to easily forge mails sent from your domain, for example by sending data with newlines in $FORM{'recipient'}.

Please use CGI to read and decode your form data and use MIME::Lite to send the mail. If you want to keep <c>pgp

in the pipeline, you can create the mail body using MIME::Lite and then pipe that through pgp.