perldoc strict将显示所有未使用my声明的变量：

$ perl -Mstrict=vars -c -e '$x=5; my $y=7; $z=6;'
Global symbol "$x" requires explicit package name at -e line 1.
Global symbol "$z" requires explicit package name at -e line 1.
-e had compilation errors.

对于文件列表也是一样：

$ perl -Mstrict=vars -c *.pl

参见strictv -- how unstrict is your code?;这将给予你一个变量的简短摘要。
下面是使用perldoc B::Xref的另一种方法

$ perl -MO=Xref -e '$x=5; my $y=7; $z=6;'

... lots of verbose output

  Subroutine (main)
    Package (lexical)
      $y                i1
    Package main
      $x                1
      $z                1

使用PadWalker模块，您可以查看特定范围内的所有变量。你可以看到用“my”和“our”声明的变量。
你仍然应该使用“use strict”，但是使用“use strict”不会显示你声明为全局的全局变量。
例如，这个例子仍然有一个全局变量，而strict不做任何事情

#!/usr/bin/env perl
use strict;
use warnings;
our $foo;

有了PadWalker，你可以使用这样的东西。

#!/usr/bin/env perl
use strict;
use warnings;
use DDP;
use PadWalker qw(peek_our);

our $var;

print p peek_our(0);

输出为

\ {
    $var   \ undef
}

当然，你只应该使用PadWalker进行调试。