Since everyone was kind enough to tell you how to get it to work..

Your code won't work because of a particular reason. You see how your headers have a Subject, a From and a To? There's no Content-type nor Mime version in your email. I'm sure you can deal w/o the mime version for most mailers, but your header for content-type is missing there.

Also, the type you are specifying in your INET connection, that shouldn't be a mime header, that should be the socket type. perldoc IO::Net..

IO::Socket::INET

IO::Socket::INET provides a constructor to create an AF_INET domain
socket and some related methods. The constructor can take the followin
+g

options

PeerAddr    Remote host address          <hostname>[:<port>]
PeerPort    Remote port or service       <service>[(<no>)] | <no>
LocalAddr   Local host bind address      hostname[:port]
LocalPort   Local host bind port         <service>[(<no>)] | <no>
Proto       Protocol name (or number)    "tcp" | "udp" | ...
Type        Socket type                  SOCK_STREAM | SOCK_DGRAM | ..
Listen      Queue size for listen
Reuse       Set SO_REUSEADDR before binding
Timeout     Timeout value for various operations
[download]