如何检查是否使用Perl加载了Windows设备驱动程序？

cpan install Win32

use Win32::API;

# 加载设备驱动程序
my $LoadLibrary = new Win32::API("kernel32", "LoadLibraryA", "P", "N");
my $hModule = $LoadLibrary->Call("path_to_driver_file");

# 检查是否加载成功
if ($hModule) {
    print "设备驱动程序加载成功\n";
} else {
    print "设备驱动程序加载失败\n";
}

cpan install Win32::DeviceManager

use Win32::DeviceManager;

# 创建设备管理器对象
my $devman = Win32::DeviceManager->new();

# 枚举设备驱动程序
my @drivers = $devman->EnumDrivers();

# 打印设备驱动程序列表
foreach my $driver (@drivers) {
    print $driver->Name() . "\n";
}