sub Read_leads
{
	open (INPUT, "<$lo_in") || die "Cannot open source file $!\n";

	while (<INPUT>) {
		$in_ln = $_;
		$in_ln =~ s/^\s+//;
		$in_ln =~ s/\s+$//;

		($lead{Email}, $lead{FirstName}, $lead{LastName} , $lead{DOB}, $lead{Gender}, $lead{Country}, $lead{State}, $lead{ZIP}, $lead{Address}, $lead{City}) = split(/,/, $in_ln);
		$lead{DATE} = $indate;
		if ($lead{Email}) {
			$lead{Datasource} = '10222';
			$rec = {};
			while (($k, $v) = each %lead) {
				$v = $dbh->quote( $v);
				$rec->{$k} = $v;
			}
			push @leadslist, $rec;
		}
		%lead = ();
	}
	return;
}

##</code><code>##

sub Write_leads
{
	@fields = qw(Email FirstName LastName Address City State ZIP Datasource AdType OrigIP DATE Gender DOB phone Country);
	$sth = $dbh->prepare("INSERT INTO $leads_tbl VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)");

	for $href (@leadslist) {
		$sth->execute( @{$href}{@fields});
	}
	return;
}