#!/usr/bin/perl -w use strict; use lib './lib', '../lib'; use Log::Dispatch::Email::MailSend; Mail::Mailer->import( sendmail => 't/sendmail' ); my $email = Log::Dispatch::Email::MailSend->new( name => 'email', min_level => 'emerg', to => 'foo@example.com', subject => 'Log this', ); $email->log( message => 'Something bad is happening', level => 'emerg' ); exit 5;