(= gmailprog ‡
use strict;
use MIME::Lite;
use Net::SMTP::TLS;

my $msg = MIME::Lite->new(
        From    => «from»,
        To      => «to»,
        Subject => «subject»,
        Type    => 'TEXT',
        Data    => «message»
    )->as_string();

my $mailer = new Net::SMTP::TLS(
        "smtp.gmail.com",
        Port     => 587,
        User     => «user»,
        Password => «password»);
$mailer->mail(«user»);
$mailer->to(«to»);
$mailer->data;
$mailer->datasend($msg);
$mailer->dataend;
$mailer->quit;
‡)

(def sendgmail (data)
  (thread (fromstring (gmailprog strperl:data) (system "perl"))))