net::smtp debut out

bardon@meriadoc:~$ perl smtp_test.pl
Net::SMTP>>> Net::SMTP(2.29)
Net::SMTP>>>   Net::Cmd(2.26)
Net::SMTP>>>     Exporter(5.58)
Net::SMTP>>>   IO::Socket::INET(1.29)
Net::SMTP>>>     IO::Socket(1.29)
Net::SMTP>>>       IO::Handle(1.25)
Net::SMTP=GLOB(0x77a5a0)<<< 220 meriadoc.grokthis.net ESMTP Postfix [NO UCE]
Net::SMTP=GLOB(0x77a5a0)>>> EHLO localhost.localdomain
Net::SMTP=GLOB(0x77a5a0)<<< 250-meriadoc.grokthis.net
Net::SMTP=GLOB(0x77a5a0)<<< 250-PIPELINING
Net::SMTP=GLOB(0x77a5a0)<<< 250-SIZE 10240000
Net::SMTP=GLOB(0x77a5a0)<<< 250-VRFY
Net::SMTP=GLOB(0x77a5a0)<<< 250-ETRN
Net::SMTP=GLOB(0x77a5a0)<<< 250-AUTH NTLM DIGEST-MD5 LOGIN CRAM-MD5 GSSAPI PLAIN
Net::SMTP=GLOB(0x77a5a0)<<< 250-AUTH=NTLM DIGEST-MD5 LOGIN CRAM-MD5 GSSAPI PLAIN
Net::SMTP=GLOB(0x77a5a0)<<< 250-ENHANCEDSTATUSCODES
Net::SMTP=GLOB(0x77a5a0)<<< 250-8BITMIME
Net::SMTP=GLOB(0x77a5a0)<<< 250 DSN
meriadoc.grokthis.net
Net::SMTP=GLOB(0x77a5a0)>>> MAIL FROM:<comments-mykaroo-com@mykaroo.com>
Net::SMTP=GLOB(0x77a5a0)<<< 250 2.1.0 Ok
Net::SMTP=GLOB(0x77a5a0)>>> RCPT TO:<support@bardon.com>
Net::SMTP=GLOB(0x77a5a0)<<< 554 5.7.1 <support@bardon.com>: Relay access denied
Net::SMTP=GLOB(0x77a5a0)>>> DATA
Net::SMTP=GLOB(0x77a5a0)<<< 554 5.5.1 Error: no valid recipients
Net::SMTP=GLOB(0x77a5a0)>>> To: support@bardon.com
Net::SMTP=GLOB(0x77a5a0)>>> Subject: Test
Net::SMTP=GLOB(0x77a5a0)>>>
Net::SMTP=GLOB(0x77a5a0)>>> THis is a test
Net::SMTP=GLOB(0x77a5a0): Broken pipe at smtp_test.pl line 16
Net::SMTP=GLOB(0x77a5a0)>>> .
Net::SMTP=GLOB(0x77a5a0)<<< 221 2.7.0 Error: I can break rules, too. Goodbye.
Net::SMTP=GLOB(0x77a5a0)>>> QUIT
100
Bad file descriptor