package Foo;

# Warning. Rubbish, untested code follows.

sub get_admin {
 my $admin = "admin";
 my $user = $ENV{"REMOTE_USER"};

 return ($admin, $user);
}

package Bar;

use Foo;

@user_info = get_admin();

# Do stuff.