Hi, I am new to Sockets in perl and I am trying to use a legacy script in Linux.
I start a local server on a machine using the command below ,
$SERVER =
IO::Socket::INET->new( Proto => 'tcp',
LocalAddr => "$LOCAL_STATION",
LocalPort => "$SOCKET_PORT_2ND",
Listen => SOMAXCONN,
Reuse => 1)
On the other machine I try to connect using the below command by giving the correct server name and port no
$RUN_STATION_SERVER =
IO::Socket::INET->new(Proto => 'tcp',
PeerAddr => "$SERVER_HOST",
PeerPort => "$SOCKET_PORT");
Here I am not able to connect and I am coming out.
I am really not sure what is the problem.If the Server and run station is same then I am not seeing an issue. I see that issue is there when there are 2 different machines used.