Help for this page

Select Code to Download

Select or download this

use IO::Socket;
use Storable;
...

    close $conn;
}

Select or download this

use IO::Socket;

...

    print "found '$input' in lexicon\n" if $reply eq "FOUND\n";
}