$addr="$name <$email>";
use Encode qw/encode/;
$to = encode('MIME-Q', $to);
$subject = encode('MIME-Q', $subject);

##</code><code>##

$tmpbody=~s/\%NAME\%/$name/sg;

##</code><code>##

$extra1 = DBI::data_string_desc($name);
$extra2 = DBI::data_string_desc($body);
$tmpbody=~s/\%NAME\%/$name."<br>".$extra1."<br>".$extra2/sg;