Help for this page

Select Code to Download


  1. or download this
    #!/opt/ActivePerl-5.12/bin/perl
use strict;
...
        $client->close();
    }
}
  2. or download this
    It generates an error: 
can not find channel named "IO::Socket::INET=GLOB(0xa119ed0)" at ./sps
+how_simple.pl line 24.
A client (not tested either because of failing server...)
  3. or download this
    #!/usr/bin/perl
use IO::Socket;
...
}
close ($sock);