my $dbh = DBI->connect("dbi:...", $user, $pass);
my $sql= "select ... from ...";
my $sth = $dbh->prepare($sql);
my $row = $dbh->selectrow_arrayref($sth);