Select Code to Download

sub send_mail    {


...
END_OF_BODY
sendmail(%mail) || print "Error: $Mail::Sendmail::error\n";
}

TO => $VAR,
TO => "$VAR",
...
TO => $FORM{recipient},
TO => "$FORM{'recipient}",
TO => "$FORM{recipient}",

sub send_mail    {


...
  sendmail(%mail) or die $Mail::Sendmail::error;

}