Can't call method "recv" on an undefined value at W:\Developers\Randall_c\Working\sms_interface_server_receive.pl line 84.

##</code><code>##

 # Server Program
use IO::Socket;
print ">> Server Program <<\n";
# Create a new socket
my $socket=new IO::Socket::INET(LocalHost => '172.17.8.201', LocalPort=>2003,Proto=>'tcp'); print "Connection to the socket was successful.\n"; # Keep receiving messages from client my $def_msg="\nWaiting to receive message from client.....\n"; my $text =''; my $varlength = 24;
while(1)
{
    
    $socket->recv($text,'24');
    if($text ne '')
    {
        print "\nReceived message '", $text,"'\n";
    }
    # If client message is empty exit
    else
    {
        print "Cilent has exited!";
        exit 1;
    }
}

}