print MAIL '$body\n';

##</code><code>##

print MAIL "$body[0]\n";