Taking a page from the tutorial Basic debugging checklist use B::Deparse

$ cat foo
use vars qw( $foo $bar );

$ perl -MO=Deparse foo
use vars ('$foo', '$bar');
foo syntax OK
[download]