Select Code to Download

package Err;
use base qw( Exporter );
...
    @{$self}{keys %$opts}= values %$opts;
    return $self;
}

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