use CGI::Carp qw/fatalsToBrowser/;
die "Something bad happened";

##</code><code>##

$SIG{__WARN__} = sub {
    print STDOUT "Content-Type: text/plain\n\n";
    print STDOUT @_, "\n";
    exit 0;
};

##</code><code>##

use CGI::Carp qw/fatalsToBrowser/;
$SIG{__WARN__} = sub { die @_; };

##</code><code>##

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;
};