#!/usr/bin/perl -dw
use lib './lib';
use MY::DBI;
{no warnings 'once';
$p = MY::Patient->retrieve(1);
$u = MY::User->retrieve(1);
}