print TOHOST <<EOT;
To: $your_email
From: $your_email
Subject: Name Change
$email_send
EOT