#!/usr/local/bin/perl
use warnings;
use strict;
use lib '/usr/home/myname/Mail/Mailer/';  
use Mail::Sendmail;
   my %mailurl = (
                To => 'tomail@here.com',
                From => 'frommail@here.com'
                );
$mailurl{smtp} = '111.111.1.11';

print "unix test.\n";
$mailurl{'Subject'} = "UNIX test";
$mailurl{'Message'} = "test only.";
sendmail(%mailurl) || die "\n smtp problem! $Mail::Sendmail::error\n";