sub format_email_text {
    my ($name, $val, $out, $nd, $vd);
    $nd = shift; $vd = shift;
    while ($name = shift) {
        $val = shift;
        $out .= sprintf('%-'.$nd.'s %-'.$vd.'s', "$name:", $val) . "\n";
    }
    return $out;
}