print MAIL <<"END_OF_MAIL";
To: bar\@foo.com
Reply-to: $email
From: $email
Subject: AP3k New User Signup

Test Mail1

END_OF_MAIL