Select Code to Download

#!/usr/bin/perl

...
__END__
Name "main::foo" used only once: possible typo at /tmp/try line 5.
foo = ARRAY

    our $varAlias = $globvalue;

    use vars qw /*varAlias/;