eval { "require $foo; 1" } or die "Where's $foo?\n";
print $foo->happiness();