my $sql = qq(SELECT count(number)
                FROM test
                where number='22');
   my $sth = $dbh->prepare($sql);
   $sth->execute();
   Perlcode zur Auswertung des Selects,
   ggf. gefolgt von dem Insert.