#!/usr/bin/perl use CGI; use CGI::Carp qw(fatalsToBrowser carpout); open (LOG,">>/home/fred/logs/search_errors.log") || die "couldn't open log file: $!"; carpout(LOG);