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