CGI::Carp

use CGI::Carp;

BEGIN {
use CGI::Carp qw(carpout);
open(my $log, ">>", "cgi-logs/mycgi-log")
or die("Unable to open mycgi-log: $!\n");
carpout($log);
}

 

We can also make our errors go to a separate log, by using the carpout subroutine. This needs to be
done inside a BEGIN block in order to catch compiler errors as well as ones which occur at the
interpretation stage.