my $count = $dbh->selectrow_array('SELECT COUNT(*) FROM tutpoint_tbl'); 
print "$count records in table\n";

# insert test records
my $sql_ins = 'INSERT INTO tutpoint_tbl VALUES(?,?,?)';
my $sth = $dbh->prepare($sql_ins);
for my $id (1..5){
  my $result = $sth->execute($id,'test insert title','author');
  print "$result records inserted\n"
}

$count = $dbh->selectrow_array('SELECT COUNT(*) FROM tutpoint_tbl'); 
print "$count records in table\n";

# delete test records
my $sql_del = 'DELETE FROM tutpoint_tbl WHERE tut_title = ?';
$sth = $dbh->prepare($sql_del);
my $result = $sth->execute('test insert title');
print "$result records deleted\n";

$count = $dbh->selectrow_array('SELECT COUNT(*) FROM tutpoint_tbl'); 
print "$count records in table\n";