Select Code to Download

my $result = $self->get_db->query(qq|select top 1 comp,ugp,compc_rg fr
+om fs_info $SQL_SELECT_HINT where fs='$fs_name'|);

$ret = $dbh->selectall_arrayref($pq);
$pq-> query passed by $self->get_db->query()..