sub handle_errors {
  # prefix error message with current time
  my $message = sprintf(@_); 
  my $time = localtime(time);
  warn "$time: $message\n";
}

##</code><code>##

my $conf = AppConfig->new({ ..., ERROR => \&handle_errors, ...});