sub ListDados {
    my ($dados) = @_;
    foreach (keys %{$dados})
        {
            $vf = "R\$ ";
            $tf = "R\$ ";
            $dados->{$fil}{$gel}{$dte}{valor} =~ s/\.0000$/\,00/;
            $vf .= $dados->{$fil}{$gel}{$dte}{valor};

            if ($cnt eq 0)
            {
                $message .= qq!<TR class="texto3">
<TD colspan="4" BGCOLOR="$color2"><span class ="texto2">$dados->{$fil}{$gel}{$dte}{nome}</span></TD>
</TR>
<TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR CLASS="texto2">
<TD>Client</TD>
<TD>Business</TD>
<TD>Status</TD>
<TD>Value</TD>
</TR>
<TR>
<TD COLSPAN="4">
<HR>
</TD>
</TR>
<TR CLASS="texto3">
<TD BGCOLOR="$color2">$dados->{$fil}{$gel}{$dte}{cliente}</TD>
<TD BGCOLOR="$color2">$dados->{$fil}{$gel}{$dte}{negocio}</TD>
<TD BGCOLOR="$color2">$dados->{$fil}{$gel}{$dte}{status}</TD>
<TD BGCOLOR="$color2">$vf</TD>
</TR>!;
            $cnt++;
            ($color2,$color1) = ($color1,$color2);
        }
        else
            {
                $message .= qq!<TR CLASS="texto3">
<TD BGCOLOR="$color2">$dados->{$fil}{$gel}{$dte}{cliente}</TD>
<TD BGCOLOR="$color2">$dados->{$fil}{$gel}{$dte}{negocio}</TD>
<TD BGCOLOR="$color2">$dados->{$fil}{$gel}{$dte}{status}</TD>
<TD BGCOLOR="$color2">$vf</TD>
</TR>!;
                ($color2,$color1) = ($color1,$color2);
        }
    }
}