$ perl -MO=Xref -e " print $Foo::Bar::x "  | perl -ne " $f++ if /Subroutine..main/; print if $f "
-e syntax OK
  Subroutine (main)
    Package Foo::Bar
      $x                1