$ perl mail1.pl
No real MTA found, using 'testfile' at /usr/local/share/perl/5.14.2/Mail/Mailer.pm line 108.
we arrived here
mailer= Mail::Mailer::testfile=GLOB(0x91baf7c)  Reminder= Feed Dino before you go to the quarry.
$ 


##</code><code>##

use strict;
use warnings;

my $Reminder = "Feed Dino before you go to the quarry.";
mail_reminder();

sub mail_reminder{
use Mail::Mailer;
use strict;
my $New_Reminder="Reminder";
my $From_address='fred@192.168.1.171';
my $To_address='barney@192.168.1.171';
my $mailer = Mail::Mailer->new();
    $mailer->open({ From    =>$From_address,
                    To      =>$To_address,
                    Subject =>$New_Reminder,
		  });
print $mailer $Reminder;
print "we arrived here\n";
print "mailer= ",$mailer,"  Reminder= ",$Reminder,"\n";
$mailer->close() or die "Can't send: $!\n";
}


##</code><code>##

$ cat mailer.testfile

===
test 1 Wed Apr 22 12:16:00 2015
from: twain@twain-desktop
to: barney@192.168.1.171

Subject: Reminder
To: barney@192.168.1.171
From: fred@192.168.1.171

Feed Dino before you go to the quarry.$