...
$pessoais = "produtos/pessoais.dat";
$mailprog = '/usr/sbin/sendmail';

$search_for   = "a";
$search_field = "all";

&search_database($pessoais,$search_for);
$count = @results;
...

...
foreach $results (@results){
	  ($key,$descricao,$inscricao,$mensalidade,$codIBM,$qid) = split(/\|/,$results);
print MAIL "$descricao $FORM{$qid}\n\n";
}
...