use strict;
use warnings;
use Data::Dumper;
use Win32API::File 0.08 qw( :ALL  );

my $hObject = createFile( "test.xml", 'rw k e' );

unless ( $hObject ) {
	die "error creating handle: $^E\n";
}
print Dumper( $hObject);

tie my $FILE, 'Win32API::File', $hObject;    ###line 13
print $FILE "test";

print "finished\n";

__DATA__
output:

Can't locate method Win32API::File::TIESCALAR via package Win32API::File at D:\Users\\testlock\t1.pl line 13
$VAR1 = 92;