#!/usr/bin/perl -w
use strict;

use Win32API::File 0.08 qw( :ALL );

my $status = createFile( "a.out", "w ke", "r" ) or  die "Can't get exclusive access to file: $^E\n";

if ( $status
 ) {
    print "Got it!\n";
}