{
    use Win32::Unicode qw/ -native /;
    open my($fh), '>:raw', $unicodename;
    ...
}