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";
}