or download this
my $query = qq(select distinct roomid, name from rooms order by roomid
+);
my $sth = $dbh->prepare($query) or die qq(Failed to prepare query: $db
+h->errstr)
;
my $ret = $sth->execute() or die qq(Failed to execute query: $dbh->err
+str);
my @row = $sth->fetchrow_array() or die qq(Failed to fetch data: $dbh-
+>errstr);