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