#!/usr/local/bin/perl

use strict;
use warnings;
use lib '/myproject/lib';
use MyCompany::MyProduct::Database;
use Data::Dumper;

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