Select Code to Download

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

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

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

use CGI::Carp qw/fatalsToBrowser/;
use Mail::Mailer;
...
    print $smtp @_, "\n";
    $smtp->close;
};