use warnings;
use strict;

use Carp;

use MIME::Lite;
use Net::SMTP::SSL;

use Data::Dump qw( dump );

use base 'Exporter';


sub send_mail {

    my $to         = shift;
    my $subject    = shift;
    my $body       = shift;
    my $from       = shift;
    my $password   = shift;

    my $from_mime = $from;
    my $count = @_;
    if( $count ) {
        my $from_name = shift;
        $from_mime = "\"$from_name\" <$from>";
    }

    my $msg = MIME::Lite->new (
        From       => "$from_mime"                 ,
        To         => "$to"                        ,
        Subject    => "$subject"                   ,
	Data       => "$body"                      ,
        );


    my $smtp;

    if (not $smtp = Net::SMTP::SSL->new('smtp.gmail.com',
                                        Port => 465,
                                        Debug => 0)) {
        croak "Could not connect to server\n";
    }

    $smtp->auth($from, $password)
        || croak "Authentication failed!\n";

    $smtp->mail($from . "\n");
    my @recepients = split(/,/, $to);
    foreach my $recp (@recepients) {
        $smtp->to($recp . "\n");
    }
    $smtp->data();
    $smtp->datasend( $msg->as_string() );
    $smtp->dataend();
    $smtp->quit;
}


##</code><code>##

Net::SMTP::SSL>>> Net::SMTP::SSL(1.01)
Net::SMTP::SSL>>>   IO::Socket::SSL(1.13)
Net::SMTP::SSL>>>     IO::Socket::INET(1.29)
Net::SMTP::SSL>>>       IO::Socket(1.29)
Net::SMTP::SSL>>>         IO::Handle(1.25)
Net::SMTP::SSL>>>           Exporter(5.58)
Net::SMTP::SSL>>>   Net::Cmd(2.29)

##</code><code>##

Net::SMTP::SSL>>> Net::SMTP::SSL(1.01)
Net::SMTP::SSL>>>   IO::Socket::SSL(1.24)
Net::SMTP::SSL>>>     IO::Socket::INET(1.31)
Net::SMTP::SSL>>>       IO::Socket(1.30_01)
Net::SMTP::SSL>>>         IO::Handle(1.27)
Net::SMTP::SSL>>>           Exporter(5.62)
Net::SMTP::SSL>>>   Net::Cmd(2.29)