#!/usr/local/bin/perl -w

package MyCompany::MyProduct::Database;
use Class::DBI::Loader;
my $loader = Class::DBI::Loader->new(
    dsn           => "dbi:SQLite:dbfile=kudra.sqlite",
    user          => "username",
    password      => "password",
    namespace     => 'MyCompany::MyProduct::Database',
    relationships => 1);

package main;

use strict;
use warnings;
#use MyCompany::MyProduct::Database;
use Data::Dumper;

my $person = 
    MyCompany::MyProduct::Database::Person->retrieve(3);
print Dumper $person;