#!/usr/bin/perl -w use strict; use CGI::Carp qw|set_die_handler|; use Foobar; BEGIN { sub extra_special_die_handler { my ($msg) = shift; print qq|Content-Type: text/html\n\n|; print qq||; print qq|

Error

|; print qq|$msg|; } set_die_handler(\&extra_special_die_handler); } open( STDERR, '>>', 'testerror.log'); my $foo = Foobar->new(); print $foo->fooish(); print qq|\n\nall okay\n|; close(STDERR); ##

##

package Foobar;

sub new {
   return bless {};	
	}
	
sub fooish {
     my ($self, $somevar) = @_;
     if ($somevar) {
          return "Empty nest!"; }
     else {
	     die "I died here!";
     }
}	

##

##

Content-Type: text/html

ErrorI died here!Content-Type: text/html

Error[Sat Jul 16 19:57:35 2016] testCGI_Carp.pl: I died here! at Foobar.pm line 12.