print MAIL '$body\n';