package MyUserProfile;
require Exporter;

our @ISA        = qw(Exporter);
our @EXPORT     = qw(ProfileGet ProfileSave ProfileEdit ProfileUpdate
                        ProfileFix ProfileExtract ProfileFixContactInfo
                        $user_data $contact_strings, @contact_info);
our $VERSION    = 1.00;

use MyErrors;
use CGI;
use Register qw(PrintTemplate RegisterChange RegisterAcctPath RegisterSetupUser
                EDIT_PROFILE VIEW_IMAGES read_user_db);
use MyUtils qw(:DEFAULT);

##</code><code>##

[...]
use MyUserProfile qw(:DEFAULT);
[...sometime later in some function...]
my $acct_data = MyUserProfile::ProfileGet($acct);
[...]