#!/usr/bin/perl
use MIME::Lite;
use Getopt::Long;

$verbose = 0;
$rcpt_addr = "";
$from_addr = "";
$subject = 'MTA Test Email';
$mta = "";
$port = 25;
$message = 'This is a test email sent by mtatest.pl';

&check_options;

$msg = MIME::Lite->new(
                 From     => $from_addr,
                 To       => $rcpt_addr,
                 Subject  => $subject,
                 Data     => $message
                 );

$msg->send('smtp', "$mta", Port=> $port);;
print "Email Sent Successfully\n";

############################################################################

sub check_options {
   my $result;
   $result = GetOptions ("verbose"      => \$verbose,
                         "mta=s"        => \$mta,
                         "port=s"       => \$port,
                         "to=s"         => \$rcpt_addr,
                         "from=s"       => \$from_addr,
                         "help"         => \$print_help);

   if (!$result) {
      print "Usage: $0 --mta <MTA> --to <to addr> --from <from addr> [--port <port>]\n";
      print "This message: $0 --help\n";
      exit 1;
   }

   if ($print_help) {
      print "Usage: $0 --mta <MTA> --to <to addr> --from <from addr> [--port <port>]\n";
      print "This message: $0 --help\n";
      exit 0;
   }

   if ($mta eq "") {
      print "Usage: $0 --mta <MTA> --to <to addr> --from <from addr> [--port <port>]\n";
      exit 1;
   }

   if ($from_addr eq "") {
      print "Usage: $0 --mta <MTA> --to <to addr> --from <from addr> [--port <port>]\n";
      exit 1;
   }
   if ($rcpt_addr eq "") {
      print "Usage: $0 --mta <MTA> --to <to addr> --from <from addr> [--port <port>]\n";
      exit 1;
   }
}