my $dbh;
sub new {
    $dbh = @_;
}

##</code><code>##

# $dbname, $uname, $pword have already been filled in.
my $dbh = DBI->connect("DBI:mysql:$dbname:localhost","$uname","$pword");

##</code><code>##

Main::new($dbh);

##</code><code>##

Can't locate object method "selectrow_array" via package "Main" at Main.pm line ***.