Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use IO::Socket::UNIX;
...
  my ($l) = <$fh>;
  return uc($l);
}
  2. or download this
    #!/usr/bin/perl -w
use IO::Socket::UNIX;
...

# shut down reading side
$usock->shutdown(0);
  3. or download this
    my $linger = pack('ii', 1, 120); # BSD struct 
$usock->sockopt(SO_LINGER, $linger);