Hi,

I have a perl script which uses socket calls in perl.
Server Side:

use Socket;

my $port = shift || 7001;
my $proto = getprotobyname('tcp');
my $server = "localhost";

socket(SOCKET, PF_INET, SOCK_STREAM, $proto) or die "Can't open socket
+ $!\n";
setsockopt(SOCKET, SOL_SOCKET, SO_REUSEADDR, 1) or die "Can't set sock
+et option to SO_REUSEADDR $!\n";

bind( SOCKET, pack_sockaddr_in($port, inet_aton($server))) or die "Can
+'t bind to port $port! \n";

listen(SOCKET, 5) or die "listen: $!";

my $client_addr;
while ($client_addr = accept(NEW_SOCKET, SOCKET)) {
  send(NEW_SOCKET,"Hello",0);
  close NEW_SOCKET;
}
[download]

Client Side:

use Socket;

my $host = shift || 'localhost';
my $port = shift || 7001;
my $server = "localhost";

socket(SOCKET,PF_INET,SOCK_STREAM,(getprotobyname('tcp'))[2]) or die "
+Can't create a socket $!\n";

connect( SOCKET, pack_sockaddr_in($port, inet_aton($server))) or die "
+Can't connect to port $port! \n";

my $line;
my $val;
my $p;
my $iaddr;

$line = recv(SOCKET,$val,5,0);
($p, $iaddr) = sockaddr_in($line);

if(defined $line){
 print "$val from $iaddr\n";
}
close SOCKET or die "close: $!";
[download]

The problem happens only when i use the statement  ($p, $iaddr) = sockaddr_in($line);. The recv call receives the message "Hello". If the statement ($p, $iaddr) = sockaddr_in($line); is removed, the script receives the correct value in recv and will print the same. Hence the problem is only with the return value in $line of recv which seems to be 'undef' in this case.

Could you please help to identify the issue here?

Thank you!