package MyCalendar;

use MyDBI;

sub new {
    ...

    $self->{'_dbh'} = MyDBI->connect( ... );

    ...
}