use strict;

use Mail::Sendmail;
$Mail::Sendmail::mailcfg{smtp}=['mailhost.yourserver.com']; 

my %mail=
( 
    To=>'herkum@yourserver.com,herkum@perl-example.com',
    From=>'you@perlmonks.org',
    Subject=>'Subject',
    Message=>'Body',
);
Mail::Sendmail::sendmail(%mail) or die "Mail::Sendmail::error: '$Mail::Sendmail::error'";