The following code fragment illustrates the use of MySQL in Perl: use DBI; $dbh = DBI->connect("DBI:mysql:db_name:localhost", "username", "password") || die "DBI->connect: $DBI::errstr ";

$sql_stmt = "insert into my_table (field_1, field_2, field_3) values (?, ?, ?)"; $sth = $dbh->do($sql_stmt, {}, "value_1", "value_2", "value_3") || die "dbh->do($sql_stmt: value_1, value_2, value_3): $DBI::errstr ";

$sql_stmt = "select field_1, field_2, field_3 from my_table"; $sth = $dbh->prepare($sql_stmt) || die "dbh->prepare($sql_stmt): $DBI::errstr ";

$sth->execute || die "sth->execute($sql_stmt): $DBI::errstr ";

while (($field1, $field2, $field3) = $sth->fetchrow) {

   print "column 1 = $field_1; column 2 = $field_2; column 3 = $field_3 ";

}