print $sock "RCPT TO: $mail_to <$mail_to>\n";

##</code><code>##

print "QUIT\n";

##</code><code>##

print "QUIT\r\n";