$smtp->mail($ENV{USER});
    $smtp->to($mailto);

    $smtp->data();
    $smtp->datasend("To: $mailto\n");
    $smtp->datasend("Subject: $subject\n");
    $smtp->datasend("$mailtext\n");
    $smtp->dataend();

    $smtp->quit