sub add_customer{
    my $sth = $dbh->prepare('INSERT INTO customers VALUES (?,?,?,?,?,?,?,?,?,?,?,?)');
    die "Couldn't add customer" unless defined $sth;
    $sth->execute( @_ );
}