Select Code to Download

my @bytes = $address =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/;
my $hex_addr = sprintf "%02x.%02x.%02x.%02x", @bytes;

my $hex_addr = sprintf "%02x.%02x.%02x.%02x", $address =~ /(\d+)\.(\d+
+)\.(\d+)\.(\d+)/;

my $hex_addr = sprintf "%02x.%02x.%02x.%02x", split /\./, $address;

use Socket;
my $address = '127.1';
my $hex_addr = sprintf "%02x.%02x.%02x.%02x", unpack 'C*', inet_aton($
+address);