Help for this page

Select Code to Download


  1. or download this
    
my $socket = IO::Socket::INET->new(
...
        }
    }
}
  2. or download this
    
use IO::Socket::INET;
...
    if ( $input =~ /^q/i ) { exit; }
    else { print $socket "$input\n"; }
}
  3. or download this
    
"A man's maturity -- consists in having found again the
seriousness one had as a child, at play."   --Nietzsche