my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile","","");

##</code><code>##

$sth = $dbh->prepare("SELECT foo, bar FROM table WHERE baz=?");

##</code><code>##

  $sth->execute( $baz );
  while ( @row = $sth->fetchrow_array ) {
    print "@row\n";
  }