my $smtp = Net::SMTP::SSL->new("", Debug=>1, Timeout=>20, Port=>465);
    $smtp->auth('', "") or die "Error message: $smtp->message";