Select Code to Download

Select or download this

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

my $wimfile = new Win32::API("wimgapi", "WIMCreateFile", ['S','C','C',
+'C','C','C'], 'N');
my $value = $wimfile->Call($filehandler,WIM_GENERIC_WRITE,WIM_OPEN_EXI
+STING,WIM_FLAG_VERIFY,WIM_COMPRESS_NONE,WIM_OPENED_EXISTING);

Select or download this

semi-panic: attempt to dup freed string at test.pl line 10, <DATA> lin
+e 164.
Can't call method "Pack" on an undefined value at test.pl line 10, <DA
+TA> line 164.