Help for this page
$sender =~ s/@/\\@/;
print MAIL "To: ???\@gmail.com\n";
print MAIL "From: $sender\n";