## table customers
#|Company
#|FirstName
#|LastName
#|PhoneNumber
#|Bill2Street
#|Bill2City
#|Bill2State
#|Bill2Zip
#|Ship2Street
#|Ship2City
#|Ship2State
#|Ship2Zip
######



my $dbh = DBI->connect('DBI:mysql:advance') or die "Couldn't connect to database: " . DBI->errstr;

sub add_customer{
my ($company, $firstname, $lastname, $phonenumber, $bill2street, $bill2city, $bill2state, $bill2zip, $ship2street, $ship2city, $ship2state, $ship2zip) = @_;

my $sth = $dbh->do('INSERT INTO customers VALUES (?,?,?,?,?,?,?,?,?,?,?,?)');

die "Couldn't add customer" unless defined $sth;

$sth->execute($company, $firstname, $lastname, $phonenumber, $bill2street, $bill2city, $bill2state, $bill2zip, $ship2street, $ship2city, $ship2state, $ship2zip);
}