如何使用Perl检测Windows上是否删除了打开文件句柄的文件？

use Win32API::File;

my $file = 'C:\path\to\file.txt';
my $handle = Win32API::File::CreateFile(
    $file,
    Win32API::File::GENERIC_READ(),
    Win32API::File::FILE_SHARE_READ(),
    undef,
    Win32API::File::OPEN_EXISTING(),
    Win32API::File::FILE_ATTRIBUTE_NORMAL(),
    undef
);

if ($handle) {
    print "File is open\n";
} else {
    print "File is not open\n";
}

use Win32::Process::List;

my $file = 'C:\path\to\file.txt';
my $processes = Win32::Process::List->new();

foreach my $process ($processes->Processes()) {
    my $handles = $process->Handles();
    foreach my $handle (@$handles) {
        if ($handle->{FileName} eq $file) {
            print "File is open\n";
            last;
        }
    }
}