sub err {
    $Carp::CarpLevel = $carplevel;
    if ($which eq 'croak') {
        my @c = $carplevel ? caller($carplevel-1) : (undef,__FILE__,__LINE__);
        die "You did something bad! at $c[1] line $c[2]\n";
    } else {
        confess "You did something bad!"; #line 14
    }
}