my $host, $port, $request, $proto = 'tcp';

##</code><code>##

my ($host, $port, $request, $proto) = ('tcp');