my $filename = "utf16le.txt";
    open IN, "< utf16le.txt"
        or  die "Can't read $filename: $!\n";
    local( $\ )= \2048;
    my $utf8str= "";
    while( <IN> ) {
        $utf8str .= pack "U*", unpack "v*", $_;
    }