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