Select Code to Download

my $dbh = DBIx::Password->connect($user);

my $dbh = DBIx::Password->connect($user);

sub staging_phase {
    my($self)=@_;
...
sub connect {
    DBI->connect($u, $p, $dsn, $self->attributes);
}

DBIx::Password->connect("${user}_${staging_phase}");