all purpose Net::SMTP object constuct, trying SSL first before falling back on non-SSL

smtp_new.pl

    my $smtp_connection = $self->{'smtp_obj'} ||= do {
        my $smtps_obj = eval {
            require Net::SMTP::SSL;
            my $s = Net::SMTP::SSL->new(
                $args->{'smtp_server'},
                Port    => 465,
                Hello   => $mail_domain,
                Timeout => 10, 
                Debug   => 0,
            );  
        };  
        if ($@ || !defined $smtps_obj) {
            require Net::SMTP;
            my $smtp_obj = Net::SMTP->new(
                $args->{'smtp_server'},
                Hello => $mail_domain,
                Timeout => 10, 
                Debug => 0,
            );  
            $smtp_obj;
        }   
        else {
            $smtps_obj;
        }   
    };