Select Code to Download

pack("a4", inet_aton("192.168.1.1"));

unpack("a4", inet_ntoa($buffer);

use IO::Socket;
$IP_Address = '10.10.10.1';
...
print $sock $buffer;
close($sock);

use IO::Socket;

...
}

close($sock);