#!/usr/bin/perl
use strict;
use warnings;
use Carp;
use File::Find;
die "Usage: $0 [croak|confess] [level]\n" unless @ARGV == 2;
my ($which, $carplevel) = @ARGV;

sub err {
    $Carp::CarpLevel = $carplevel;
    if ($which eq 'croak') {
        croak "You did something bad!";  #line 12
    } else {
        confess "You did something bad!"; #line 14
    }
}

sub wanted {
  err(); #line 19
}