CGI::Carp is actually a bit more powerful than that, even. Some examples (some from the docs):

# Send warn/die messages to a separate log file
BEGIN {
  use CGI::Carp qw(carpout);
  open(LOG, ">>/usr/local/cgi-logs/mycgi-log") or
    die("Unable to open mycgi-log: $!\n");
  carpout(LOG);
}

# Or, normal fatalsToBrowser behavior but catch warnings also
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use CGI qw(:standard);
print header();
warningsToBrowser(1);           # enable warnings to browser
[download]

Nifty stuff!