Help for this page
my $buffer = <$sock>; while ($buffer !~ /GO AHEAD\Z/) { $buffer .= <$sock>; }
use IO::Socket; use POSIX qw/BUFSIZ/; ... $message .= $buffer; }
www.com | www.net | www.org
No recent polls found
