#!/opt2/perl/bin/perl
use strict;
use warnings;
use Carp;
use File::Find;

sub err {
    croak ("You did something bad!"); #line 8
}

sub wanted {
  err(); #line 12
}
push our @CARP_NOT, 'File::Find';
find(\&wanted, '.'); #line 15
__END__