my $smtp = Net::SMTP->new(Host => $mailserver, SSL => 0, Debug => 1, Timeout => 30);

  $smtp->auth($username, $password);

  $smtp->mail($myemail);
  if ($smtp->to($destemail)) {
    $smtp->data();
    $smtp->datasend("From: $myemail\n");
    $smtp->datasend("To: $destemail\n");
    $smtp->datasend("Date: $date\n");
    $smtp->datasend("Subject: A test\n");
    $smtp->datasend("\n");
    warn "(end of header)\n";
    $smtp->datasend("This is a test...\n");
    warn "(end of body)\n";
    $smtp->dataend;
    warn "(dataend completed)\n";
  } else {
     print "ERROR: ", $smtp->message();
  }
  warn "(bye...)\n";
  $smtp->quit;