The following server and client don't talk, but if I change the port numbers, they just become fine. I wonder whether there is something special with port 25 on windows XP. I know it is for smtp and that's the purpose. if I stop my server, netstat -a shows nothing listening on that port, so the port is available.
server
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 $_;
}
client
use warnings;
use strict;
use IO::Socket::INET;
my $server = new IO::Socket::INET(Proto => "tcp",
PeerAddr => "localhost",
PeerPort =>25);