eval { $value = SomeSub() }
..............
sub SomeSub
{
use Module;
.......
return Module::xxx ();
}