发现Perl应用程序当前定义的所有变量的最佳方法是什么？

#!/usr/bin/perl

use strict;
use warnings;

our %ENV = %ENV;

foreach my $key (sort keys %ENV) {
    print "$key = $ENV{$key}\n";
}

#!/usr/bin/perl

use strict;
use warnings;

our %ENV = %ENV;

foreach my $key (sort keys %ENV) {
    print "$key = $ENV{$key}\n";
}

open(my $file, '>', 'environment.txt') or die "Error: Failed to create file";
print $file Dumper(\%ENV);
close $file;