Select Code to Download

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

my ($host, $port, $request, $proto) = ( undef, undef, undef, 'tcp' );
# or
...
# or
my ($host, $port, $request, $proto);
$proto = 'tcp';