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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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