this code gets "Bad arg length for Socket::pack_sockaddr_in" error. we can fix this error by changing 2nd parameter of pack_sockaddr_in function.

invalid_tcp_client.pl

#!/usr/bin/perl -w

use strict;
use warnings;
use IO::Socket;
use Data::Dumper;

my $socket = IO::Socket::INET->new(
    Proto     => 'tcp',
    Type      => SOCK_STREAM
) || die "creating socket: $!";

my $port = 80;
my $remote_addr = "www.google.com";
$remote_addr = pack_sockaddr_in( $port, $remote_addr );
connect($socket, $remote_addr);