use Win32API::File qw(OsFHandleOpen);

OsFHandleOpen(\*OUT,$ENV{myosh},"w");
$x=print OUT "***\nHere is data to OsH $ENV{myosh}\n***\n";
warn "print=$x ($!)\n" unless $x;