my $newperson = eval { $customer_rs->create({
firstname => $params->{firstname},
lastname => $params->{lastname},
email => $params->{email},
phone => $params->{phone},
date => $date,
donations => '0',
}) };
my $newcomputer = eval { $computer_rs->create({
compman => $params->{compman},
compmodel => $params->{compmodel},
modnum => $params->{modnum},
os => $params->{os},
errormsg => $params->{errormsg},
service => $params->{service},
probdesc => $params->{probdesc},
loginpw => $params->{loginpw},
comment => $params->{comment},
compsn => $params->{compsn},
date => $date,
}) };
my $customer = $customer_rs->find({ email => $params->{email} });
my $computer = $computer_rs->find({ compsn => $params->{compsn} });
eval { $c2c_rs->create({
    custid => $customer->{uniqid},
    compid => $computer->{compid},
}) };