Select Code to Download

use Encode qw( encode );
encode('UCS-2le', 'C:\\data.wim')

use FileHandle qw( );
my $fh = new FileHandle;
$fh->open("< C:\\data.wim")
   or die;

open(my $fh, "<", "C:\\data.wim")
   or die;