Select Code to Download

======================================================================

...
} while $retries < 4;

print "END OF PROGRAM\n\n";

PROGRAM: try_socket_perl_monks.pl $ARGV[0]=A
Configuration A, $MySocket=IO::Socket::INET=GLOB(0x818416c)
...
above the recv, $retries=3
retrying $retries=4
END OF PROGRAM

PROGRAM: try_socket_perl_monks.pl $ARGV[0]=B
Configuration B, $MySocket=IO::Socket::INET=GLOB(0x81842e4) 
$MySocket not defined
Can't call method "send" on an undefined value at ./try_socket_perl_mo
+nks.pl line 59

PROGRAM: try_socket_perl_monks.pl $ARGV[0]=C
Configuration C, $MySocket=IO::Socket::INET=GLOB(0x81842e4) 
$MySocket not defined
Can't call method "send" on an undefined value at ./try_socket_perl_mo
+nks.pl line 59