Help for this page

Select Code to Download

Select or download this

use IO::Socket::INET;

...
print "ANSWER: " . $line;

close($socket);