#!/usr/bin/perl -w
use strict;
use Win32API::Registry qw( AllowPriv );
use Win32API::File qw(
    createFile FILE_FLAG_BACKUP_SEMANTICS OsFHandleOpen
);
AllowPriv( "SeBackupPrivilege", 1 )
    or  warn "Can't enable 'backup' privilege: $^E\n";
my $h= createFile( "lockedFile.txt", "re", "rwd",
    { Flags => FILE_FLAG_BACKUP_SEMANTICS() } )
    or  die "Can't read lockedFile.txt: $^E\n";
OsFHandleOpen( \*FILE, $h, "r" )
    or  die "Can't open FILE handle: $! ($^E)\n";
while(<FILE>) {
    print;
}