use Err qw( $ErrHandle );
# Set script-specific defaults:
$ErrHandle->Configure( {Message=>"Contact technical support"} );
# Use script defaults:
$ErrHandle->Report(...);
# Set and use other configurations:
my $accountingErrHandle= $ErrHandle->new()->Configure(
    {Message=>"Please notify Bob"} );
$accountingErrHandle->Report(...);