my $smtp = new Mail::Mailer 'smtp', Server => 111.11.1.111;

my %headers = ('To' => '$YourEmail', 'From' => '$Email');
				
my $body = '$Message';

my $mailer = new Mail::Mailer->new($smtp, $YourEmail);

$mailer ->open(\%headers);

print $mailer $body;


$mailer->close();