use Mail::Sendmail;

        %mail = ( To      => 'email',
                  From    => 'email',
                  Message => "This is a minimalistic message"
                 );

        if (sendmail %mail) { print "Mail sent OK.\n" }
        else { print "Error sending mail: $Mail::Sendmail::error \n" }