#!/usr/bin/perl
use strict;
use warnings;

use IO::Socket;

my $pop3 = IO::Socket::INET->new(
            PeerAddr => "pop3.163.com",
            PeerPort => 110,
            Proto    => 'tcp',
            Timeout  => 20 );
print "Content-type: text/html\n\n";
print "Result: ";
print $pop3;

##</code><code>##

Content-type: text/html

Result: IO::Socket::INET=GLOB(0x9314838)

##</code><code>##

Content-type: text/html

Result: