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