#!/usr/bin/perl
###########################################
# mysql_add_mult.pl
# Mike Schilli, 2002 (m@perlmeister.com)
###########################################
use warnings;
use strict;

my $USER     = "root";
my $PASSWORD = "";

use DBI;

my $dbh = DBI->connect(
    "DBI:mysql:" . 
    "database=keep_on_truckin;" .
    "host=localhost", 
    $USER, $PASSWORD,
    {PrintError => 0, AutoCommit => 1});

my @fuhrpark = (
    [ "M-AX 4712", 7 ],
    [ "M-AN 1234", 3 ],
    [ "HH-AA 471", 8 ],
    [ "HB-O 321",  8 ],
    [ "A-DX 729",  7 ],
);

my $sth = $dbh->prepare( "
    INSERT INTO fahrzeuge (
        kennz, tonnen
    ) VALUES (?,?)
  " ) or die $dbh->errstr();

for (@fuhrpark) {
    my($kennz, $tonnen) = @$_;

    $sth->execute($kennz, $tonnen) or
        die $dbh->errstr();
}

$dbh->disconnect();