Select Code to Download

...
        MIME::Lite->send(
...
        );
...

    my $smtp = MIME::Lite::SMTP->new( $hostname, %opts )
      or Carp::croak "SMTP Failed to connect to mail server: $!\n";
...
        }
    }