use MIME::Entity;
use Email::Sender::Simple qw( sendmail );
use Email::Sender::Transport::SMTP;

$user = "myself\@gmail.com";
#must be a legitimate email account
$pass = "mypassword";
$mailhost = "smtp.gmail.com";
#for yahoo, use smtp.mail.yahoo.com

$rcpt = other.user@other.com;
#could also send it back to myself;
$file = "my_picture.jpg";
$debug = 0; #enable by setting to 1

my $transport = Email::Sender::Transport::SMTP->new(
  host => $mailhost,
  port => 465,
  ssl => "ssl",
  sasl_username => $user,
  sasl_password => $pass,
  debug => $debug
  );

my $mime = MIME::Entity->build(
  To => $rcpt,
  From => $user,
  Subject => "Simple MIME from Perl",
  Type => "multipart/mixed");

$mime->attach(Data => "Hungry? Eat a Milky Way",
  Type => "text/plain");
if(defined $file and -e $file)
{
  $mime->attach(Path => $file,
      Encoding => "base64",
      Disposition => "attachment");
}

sendmail($mime, { transport => $transport });