有没有一种方法可以识别哪些特定于perl的选项被传递给脚本？

use strict;
use warnings;
use Getopt::Long;

my %options;

# 定义选项和回调函数
GetOptions(
    'verbose' => sub { $options{'verbose'} = 1 },
    'output=s' => sub { $options{'output'} = $_[1] },
    'help' => sub { print_help(); exit; }
);

# 检查选项是否存在
if (exists $options{'verbose'}) {
    print "Verbose mode enabled.\n";
}

if (exists $options{'output'}) {
    print "Output file: $options{'output'}\n";
}

# 打印帮助信息
sub print_help {
    print "Usage: script.pl [options]\n";
    print "Options:\n";
    print "  --verbose       Enable verbose mode\n";
    print "  --output <file> Specify output file\n";
    print "  --help          Print this help message\n";
}

perl script.pl --verbose --output output.txt