{package Foo }
 
my Foo $x;
 
print type_of($x)  # should print Foo