package Foo;
$a = 1;
package main;
print "foo\n" if defined %Foo::;
print "bar\n" if defined %Bar::;