Select Code to Download

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

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

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