or download this
$q = param("q"); if (!$q || $q eq ""){$q = "home";}
...
my$email = param("email");
if ($email){$reply = $email;}else{$reply = "mailer-deamon\@CENSORED.nl
+"}
open (SENDMAIL,"|mail -s 'Reactie formulier CENSORED' $contactto -f $r
+eply") || &printerror;