Select Code to Download

my $sharename = Encode::encode("UTF-16BE", $sharename_utf8);

sub hexdump {
    print join(" ", unpack("(H2)*", shift)), "\n";
...

hexdump($sharename_utf8);   # e3 81 82
hexdump($sharename);        # 30 42