fetch $self->{text} in DBManager constructor with shift
give Text.pm as argument to DBManager constructor in dbm.pl