Select Code to Download

#usr/bin/perl
use strict;
use warnings;
...
                print "[ $date ] :$rec\n";
        }
}

Accepting Socket....
Use of uninitialized value in concatenation (.) or string at servertes
+t.pl line 18.
Socket Accepted:....
Can't call method "peerhost" on an undefined value at servertest.pl li
+ne 19.

[root@station34 Socket]# telnet 192.168.0.34 4500
Trying 192.168.0.34...
Connected to station34 (192.168.0.34).
...
^]
telnet> quit
Connection closed.