my $sth = $dbh->prepare(<<'SQL');
select count(*)
  from syskeys
 where type = ?
SQL
$sth->execute(1);