use warnings;
use strict;

use IO::Socket::INET;

my $server = new IO::Socket::INET(Proto => "tcp",
                                  LocalAddr => "localhost",
                                  LocalPort => 25,
                                  Listen => 10) ||
             die "Failed to initialize socket\n";
print "Socket initlaized\n";
my $connection = $server->accept();
print "connect\n";
while (<$connection>) {
        print $_;
}

##</code><code>##

use warnings;
use strict;

use IO::Socket::INET;

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