#!/usr/bin/perl

use DBI;

print "Lfd. Nummer:\t";
$serial = <STDIN>;
chop($serial);

print "Name:\t\t";
$name = <STDIN>;
chop($name);

print "Vorname:\t";
$vname = <STDIN>;
chop($vname);

print "Strasse HNR:\t";
$strasse = <STDIN>;
chop($strasse);

print "PLZ Stadt:\t";
$stadt = <STDIN>;
chop($stadt);

print "Telefon:\t";
$telefon = <STDIN>;
chop($telefon);

print "Handy:\t\t";
$handy = <STDIN>;
chop($handy);

print "Work:\t\t";
$work = <STDIN>;
chop($work);

print "eMail:\t\t";
$email = <STDIN>;
chop($email);

$dbh = DBI->connect("DBI:mysql:adressen",'ingolf','geheim');

$statement = "INSERT INTO priv_a VALUES (
'$name',
'$vname',
'$strasse',
'$stadt',
'$telefon',
'$handy',
'$work',
'$email',
'$serial'
)";

$sth = $dbh->prepare($statement);

$sth->execute();