my $sth = $dbh->prepare(qq{INSERT INTO `tutpoint_tbl` (`column-1`,`column-2`,`column-3`) VALUES (?,?,?)});

##</code><code>##

$sth->execute("$tut_id","$tut_title","$tut_author") || die $DBI::errstr;

##</code><code>##

use warnings;