Help for this page

Select Code to Download


  1. or download this
    use Log::Log4perl qw(get_logger :levels);

...
my $logger = Log::Log4perl->get_logger();

$logger->info('Something bad is happening');
  2. or download this
    use Mail::Sendmail;

...
sendmail(%mail) or die $Mail::Sendmail::error;

print "OK. Log says:\n", $Mail::Sendmail::log;