shell> perl -c -
use strict 'vars';
use vars qw( $foo );

$foo       = "package variable declared with use vars";
my $bar    = "lexical variable";
$main::baz = "fully qualified package variable";
our $quux  = "YAWTDAV";

$::abc     = 'shortcut for $main::abc';
${*{$main::{x}}{SCALAR}} = 'verbosely assign to $::x';

- syntax OK