use Class::DBI::Loader;

my $loader = Class::DBI::Loader->new(
    dsn => "dbi:mysql:database=*******",
    user => "*******",
    password => "******",
    namespace => "BlaBla",
  );
my $class = $loader->find_class('MyTable');
print join (": " , $class->columns);
my @obj = $class->retrieve_all(1);
print $_->name foreach (@obj);