package Bar;
use Foo;

sub bar_func
{
   my $value = Foo::get_db_value();
   return $value * 42;
}