use utf8;
use Socket qw(inet_aton);
use Encode qw(encode);

my $text_string = "Héllø wõrld!";
my $binary_string = inet_aton("127.0.0.1");

my $data_to_send;
# Now, we need to send both in one go!
# But we can't do that directly, because $text_string needs to be encoded first.

# How shall we encode it?

# As UTF-8?
$data_to_send = encode("UTF-8", $text_string) . $binary_string;
print $data_to_send;

# As ISO-8859-1?
$data_to_send = encode("ISO-8859-1", $text_string) . $binary_string;
print $data_to_send;

# As KOI8-R?
$data_to_send = encode("KOI8-R", $text_string) . $binary_string;
print $data_to_send;

# Oops, these characters don't exist in KOI8-R, so Perl used question marks. Heehee :)