use IO::Socket;
$IP_Address = '10.10.10.1';

$buffer = inet_aton($IP_Address);
$buffer = pack("a4", $buffer);

my $sock = new IO::Socket::INET (
                                 PeerAddr => 'localhost',
                                 PeerPort => '7070',
                                 Proto    => 'tcp'
                                 );

die "Could not create socket: $!\n" unless $sock;
print $sock $buffer;
close($sock);