use CGI::Carp qw/fatalsToBrowser/;
use Mail::Mailer;

#   Rough code follows, not to be used in current form 

$SIG{__WARN__} = sub {
    my $smtp = Mail::Mailer->new("smtp", Server => "127.0.0.1");
    $smtp->open({
        'To'        =>  'webmaster@your.domain.com',
        'From'      =>  'nobody@your.domain.com'
    });
    print $smtp @_, "\n";
    $smtp->close;
};