print $Foo::a;

##</code><code>##

my $package = $input{somepackage}; # Foo was passed to input
print $$package::a;

##</code><code>##

$pleasework = eval{$$package::a};
print $pleasework;