use Data::Dumper;
use User;

my $dbh = User->new();

use Company;
# Pretend that $dbh is a Company and call its do_something method,
# equivalent to $dbh->do_something, if $dbh were a Company
$dbh->Company::do_something;