#!/usr/bin/perl

use strict;
use warnings;
use MIME::Lite;
use Net::SMTP;

my $host = 'host';
my $user = 'user';
my $pass = 'pass';

unless (defined 'NoAuth') {
    my $smtp = MIME::Lite->send(
	           'smtp',
	           $host,
	           AuthUser => $user,
	           AuthPass => $pass,
               Debug    => 1 );
}
else {
    my $smtp = MIME::Lite->send(
               'smtp',
               $host,
               NoAuth => 1,
               Debug  => 1 );
}