$sender =~ s/@/\\@/;

##</code><code>##

print MAIL "To: ???\@gmail.com\n";

##</code><code>##

print MAIL "From: $sender\n";