如何检查文件句柄是否在Perl中打开？

#!/usr/bin/perl

use strict;
use warnings;

my $filename = "example.txt";

# 尝试打开文件
my $filehandle = open(my $fh, '<', $filename);

# 检查文件句柄是否打开
if ($filehandle) {
    print "文件句柄已打开\n";
    # 在这里执行文件操作
    close($fh);
} else {
    print "无法打开文件: $!\n";
}