Help for this page

Select Code to Download


  1. or download this
    use warnings;
use strict;
...
my $cli = $sock->accept();
$cli->read(my $in, 5);
Dump($in);
  2. or download this
    use warnings;
use strict;
...

my $sock = IO::Socket::INET->new("localhost:9000") or die $!;
print $sock "foo\n\0\0";
  3. or download this
    SV = PV(0x573aeb89cfe0) at 0x573aeb8e2b50
  REFCNT = 1
...
  PV = 0x573aeb8ed890 "foo\n\0"\0
  CUR = 5
  LEN = 10
  4. or download this
    66:6f:6f:0a:00:00