#!/usr/bin/perl

use crsTools4;

connect2db;

# Test query using $sth
run_sql("SELECT * FROM person WHERE firstname = 'Joe'");
while ((@f) = $sth->fetchrow())
{ print "@f\n" }

# Test query using $sth2 (though I could just reuse $sth in this case)
run_sql("SELECT * FROM person WHERE firstname = ? AND surname = ?",2,'Joe','Bloggs');
# while ((@f) = $sth2->fetchrow())
while ((@f) = $sth->fetchrow())
{ print "@f\n" }