use DBI;
use strict;
use warnings;

my $driver= "mysql";
my $dsn = "DBI:$driver:database=$database;host=$host";
my $dbh = DBI->connect($dsn, $user, $pw);
$dbh->do('INSERT INTO test_table (fname, lname, email, comment) VALUES (?, ?, ?, ?)',
	undef,
	$fname, $lname, $email, $comment);