use DBC;

my $dbh = DBC->connect({

    database => 'MyDB', 
    user     => 'me', 
    password => 'psw'

});

my $sql = qq{ 

    select 
        mycol, 
        myothercol 
    from 
        mytable 
    where 
        myothercol = 'foo' 
};

my $qr = $dbh->selectall_arrayref($sql)