Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
  print "received: $data\n";
}
print "exiting: $!\n";
  2. or download this
    #!/usr/bin/perl

...
  Peer => $SOCK_PATH,
);
$sock->send("Hello") or die "error: $@";