use warnings;
use strict;

use IO::Socket::INET;

my $server = new IO::Socket::INET(Proto => "tcp",
                                  PeerAddr => "localhost",
                                  PeerPort =>25);