sub Write_leads
{
    my ($fields, $table, $list) = @_;

    my $parms = join (',', ('?') x @$fields);
    my $sth = $dbh->prepare_cached("INSERT INTO $table VALUES ($parms)") || die $dbh->Errstr;
    foreach my $href (@$list)
    {
        $sth->execute(@{$href}{@$fields}) || die $dbh->Errstr;
    }
    $sth->finish;
}