#!/usr/bin/perl -l

BEGIN { $ENV{'PERL_MAILERS'} = 'sendmail:c:\sendmail.exe'; }

use Mail::Mailer "sendmail";

my $m = Mail::Mailer->new();

$m->open({qw(
                From    someone@somewhere.com 
                To      someone@someotherplace.com
                Subject hey
           )}
        );

print $m "Hi";

$m->close;