Help for this page
my $host, $port, $request, $proto = 'tcp';
my ($host, $port, $request, $proto) = ('tcp');