Select Code to Download

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

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

Main::new($dbh);

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