как из двух таблиц сделать на перле выборку одним запросом?

SELECT users.contract AS contract, online.status AS state FROM users,online WHERE users.contract = online.contract

my($contract,$state) = $sth->fetchrow();

приблизительно так

SQL: SELECT table1.*, table2.* FROM table1 JOIN table2 ON table1.id=table2.some;

perl:
use DBI;
my $dbi = DBI->connect(...);
my $sth = $dbi->prepare($sql);
$sth->execute;
while(my $ref = $sth->fetchrow_hashref){
# $ref->{id}...etc;
}
$sth->finish;
$dbi->disconnect;

// Могут быть конфликты в плане имен полей в таблицах!! так что будь осторожен :)

Ребята, спасибо!!!

2vilfred:
спасибо на хлеб не намажешь!!! =)