#!/usr/bin/perl

use strict;
use DBI;

my $driver = "mysql";
my $database = 'dlz2';
my $hostname = '127.0.0.1';
my $port = '3306';
my $user = 'root';
my $password = 'toot';

my $dsn = "DBI:$driver:database=$database;host=$hostname;port=$port";
my $dbh = DBI->connect($dsn, $user, $password, {
                RaiseError => 1, AutoCommit => 1
                })
        or die("Can't connect to $dsn: $!\n");

my $q = "INSERT INTO dns_records (zone,host,ttl,type,data) VALUES (?, ?, 7200, 'A', ?)";
my $ins = $dbh->prepare($q) || die "$q: " . $dbh->errstr;

$ins->execute('example.net', 'imap', '172.10.0.19') or
	die $dbh->errstr;

$ins->finish;
$dbh->disconnect;
exit;