package user
# file = user.pm

use strict;
sub new {
    my $classname = shift;
    my $self={};
    bless $self,$classname;
   
    my $UserData = user::Data->getUserData();

}

package user::Data;
# still in file user.pm
# Database layer for package user.
use strict;
use DBI;

sub getUserData(){
    my $self=shift;
    #etc.
}
1;