( $smtp = Net::SMTP::SSL->new(
                    'smtp.gmail.com',
                    Port=>465,
                    Debug   => 1,
                    Timeout => 60,
                    Hello => 'smtp2.dnikolov.co.nf@gmail.com',
                    Notify =>['SUCCESS','FAILURE'],
                    Debug => 1
                  ) )or die "Cant connect to server".$@.$!;

( $smtp = Net::SMTP::SSL->new(
                    'smtp.gmail.com',
                    Port=>465,
                    Debug   => 1,
                    Timeout => 60,
                    Hello => 'smtp2.dnikolov.co.nf@gmail.com',
                    Notify =>['SUCCESS','FAILURE'],
                    Debug => 1
                  ) )or die "Cant connect to server".$@.$!;

sub sendMail {
    my $params = shift;
    my $body;
    my $smtp;
    ( $smtp = Net::SMTP::SSL->new(
                    'smtp.gmail.com',
                    Port=>465,
                    Debug   => 1,
                    Timeout => 60,
                    Hello => 'smtp2.dnikolov.co.nf@gmail.com',
                    Notify =>['SUCCESS','FAILURE'],
                    Debug => 1
                  ) )or die "Cant connect to server".$@.$!;
    $smtp->auth('smtp2.dnikolov.co.nf@gmail.com', $params->{password} ) or die "Can't authenticate ".$smtp->message();
    return 0 unless $smtp->verify( $params->{readerEmail}->{value} );
    $smtp->mail('smtp.dnikolov.co.nf@gmail.com'."n") or die "Cant from";
    $smtp->to('dnikolov.co.nf@gmail.com'."n") or die "invalid address";
    $smtp->data() or die "cant call data successfuly";
    $smtp->datasend('From:< "'.$params->{readerEmail}->{value}.'" smtp.dnikolov.co.nf@gmail.com>'."n");
    $smtp->datasend('To:dnikolov.co.nf@gmail.com'."n");
    $smtp->datasend('Subject:'.$params->{readerSubject}->{value}."n");
    $smtp->datasend("n");
    $smtp->datasend('Reader Email: '.$params->{readerEmail}->{value}."n");
    $smtp->datasend('Reader Site: '.$params->{readerSite}->{value}."n");
    $smtp->datasend('Reader Subject: '.$params->{readerSubject}->{value}."n");
    $smtp->datasend('Reader Message: '.$params->{readerMessage}->{value}."n");
    $smtp->dataend()or die "Failed to Send Message";
    $smtp->quit() or die "Failed on quit";
    return 1;
}

sub sendMail {
    my $params = shift;
    my $body;
    my $smtp;
    ( $smtp = Net::SMTP::SSL->new(
                    'smtp.gmail.com',
                    Port=>465,
                    Debug   => 1,
                    Timeout => 60,
                    Hello => 'smtp2.dnikolov.co.nf@gmail.com',
                    Notify =>['SUCCESS','FAILURE'],
                    Debug => 1
                  ) )or die "Cant connect to server".$@.$!;
    $smtp->auth('smtp2.dnikolov.co.nf@gmail.com', $params->{password} ) or die "Can't authenticate ".$smtp->message();
    return 0 unless $smtp->verify( $params->{readerEmail}->{value} );
    $smtp->mail('smtp.dnikolov.co.nf@gmail.com'."n") or die "Cant from";
    $smtp->to('dnikolov.co.nf@gmail.com'."n") or die "invalid address";
    $smtp->data() or die "cant call data successfuly";
    $smtp->datasend('From:< "'.$params->{readerEmail}->{value}.'" smtp.dnikolov.co.nf@gmail.com>'."n");
    $smtp->datasend('To:dnikolov.co.nf@gmail.com'."n");
    $smtp->datasend('Subject:'.$params->{readerSubject}->{value}."n");
    $smtp->datasend("n");
    $smtp->datasend('Reader Email: '.$params->{readerEmail}->{value}."n");
    $smtp->datasend('Reader Site: '.$params->{readerSite}->{value}."n");
    $smtp->datasend('Reader Subject: '.$params->{readerSubject}->{value}."n");
    $smtp->datasend('Reader Message: '.$params->{readerMessage}->{value}."n");
    $smtp->dataend()or die "Failed to Send Message";
    $smtp->quit() or die "Failed on quit";
    return 1;
}