view release on metacpan or  search on metacpan

Client/httunnel  view on Meta::CPAN

use strict ;
use FindBin ;
use lib "$FindBin::Bin" ;
use Getopt::Long qw(:config no_ignore_case) ;
use IO::Socket::INET ;
use IO::Select ;
use IO::Pipe ;
use IO::Handle ;
BEGIN { eval { require Sys::Syslog } }
use HTTunnel::Client ;
use Data::Dumper ;
use POSIX qw(setsid) ;


$SIG{CHLD} = 'IGNORE' ;


my %opts = () ;
GetOptions(\%opts,
	"h",		# help
	"v",		# version