Simple Perl Script

use DBI;
$dbh = DBI->connect("DBI:mysql:db_name:localhost", "username", "password") ||
    die "DBI->connect: $DBI::errstr\n";

$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\n";


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

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

while (($field1, $field2, $field3) = $sth->fetchrow)
{
    print "column 1 = $field_1; column 2 = $field_2; column 3 = $field_3\n";
}