use Fcntl ':flock';

open my $fh, "D:/foobar.xls" or die "cant open!";

# try/catch file locking
eval{ flock($fh, LOCK_EX) or die "can't lock!" };
if ( $@) {
    warn "open file!" && exit;
}