use strict;
  use MIME::Lite;

  # vars defined here for use in the next statement

  my $msg = MIME::Lite->new (
    From    =>  $from_address,
    To      =>  $to_address,
    Subject =>  $subject,
    Type    =>  $msg_type,
    Data    =>  $body_text,
  );

  MIME::Lite->send( $method, $host, Timeout=>$timeout );
  $msg->send;