my $select =   qq/SELECT * /;
my $from =     qq/FROM db/;

my $query = $select . $from;


#  print "SQL: $query\n";
   my $sth = $dbh->prepare( $query );
   $sth->execute;