package Main;
use strict;

my $dbh;

sub new {
    my $class = shift;
    my $dbh = shift;
    
    UNIVERSAL::isa($dbh, 'DBI')
        or die "Main->new() was invoked without a valid DBI object";
}