my $smtp = Net::SMTP->new('xxxxx', 
				Hello => 'elim@cnet.com');
my $tm = scalar localtime;
$smtp->mail('elim@cnet.com');
$smtp->to('elim@cnet.com');

$smtp->data();
# $smtp->datasend('To: ELI MARCUS', "\n");
$smtp->datasend('Subject: AUTO PERL EMAIL Database Facts', "\n");
$smtp->datasend("\n");
$smtp->datasend("This is an automated email providing you satistics",
" on the US Full Push Database maintained by the Western",
" Region Technical Consultants\n\nThis Data is valid as of $tm\n\n",
"@list\n\n");
$smtp->dataend();
$smtp->quit;
$sqlquery1 ->finish();		
# $sqlquery ->finish();
$CDS->disconnect || die "failed to disconnect\n";