Select Code to Download

use Win32API::File qw( createFile OsFHandleOpen );

...
$^E= 0; # Clear possibly misleading errors out.
OsFHandleOpen( FILE, $h, "r" )
    or  die "Can't associate Perl handle: $! ($^E)\n";