Select Code to Download

my $prod_dbh = DBI->connect_cached('DBI:Sybase:database','web_','web')
+ || die "Couldn't connect to DB!\n" . DBI->errstr;
my $parent_sth = $prod_dbh->prepare_cached('select * from table where 
+id = ?');
...
my $child_data = $child_sth->fetchall_arrayref();
print Dumper($child_data->[0]);

select 
       parent.*
...
  from table parent
  join table2 child on (parent.id=child.id)
 where parent.id = ?