our $usemail        =   0;
our $mailto         =   'root@localhost';
our $mailfrom       =   'admin@localhost';
our $mailserver     =   'smtp';

our $usestdout      =   1;

##</code><code>##

$Reporting::usemail = 1;

##</code><code>##

#!/usr/bin/perl
use Reporting qw/EMail Stdout/;
$Reporting::EMail::to = "root@server";
@report=("Everything is fine.","Nothing is broken.");
&Reporting::Send(@report);

##</code><code>##

package Reporting;
my @sendtasks;
if (used "EMail") {
    use EMail
    shift @sendtasks,\&EMail::Send;
}