use strict;
use warnings;
use open qw(:std :utf8);

my $c = pack "CC", 195, 164; # Bytes für 'ä'
print $c;                    # Müll