$dbh->{RaiseError}=1;
$dbh->{AutoCommit}=0;
$dbh->do(q|DELETE FROM accountlines|);
$dbh->do(q|DELETE FROM borrowers|);
$dbh->do(q|DELETE FROM issues|);
my $branchcode = 'CPL';
my $borrower_number;
$dbh->rollback;
1;
-