#! usr/bin/perl

use IO::Socket;

my $server = "pop3.mail.ru";
my $port = "110";
my $socket = new IO::Socket::INET(PeerAddr => $server, PeerPort => $port, Proto => "tcp");