Select Code to Download

Select or download this
```
push our @CARP_NOT, 'File::Find';
```
Select or download this
```
find(\&wanted, '.'); #line 22
__END__
```

#!/opt2/perl/bin/perl
use strict;
...
push our @CARP_NOT, 'File::Find';
find(\&wanted, '.'); #line 15
__END__

Select or download this

$ ./ff_carp.pl
You did something bad! at ./ff_carp.pl line 8
...
Perl5_8_4/lib/perl5/5.8.4/File/Find.pm line 1193
        File::Find::find('CODE(0x15e498)', .) called at ./ff_carp.pl
line 15

Select or download this
```
push our @CARP_NOT, 'File::Find';
```
Select or download this
```
find(\&wanted, '.'); #line 22
__END__
```

Select or download this

#!/opt2/perl/bin/perl
use strict;
...
push our @CARP_NOT, 'File::Find';
find(\&wanted, '.'); #line 15
__END__

Select or download this

$ ./ff_carp.pl
You did something bad! at ./ff_carp.pl line 8
...
Perl5_8_4/lib/perl5/5.8.4/File/Find.pm line 1193
        File::Find::find('CODE(0x15e498)', .) called at ./ff_carp.pl
line 15

Select or download this

{
    package CarpCatcher;
...
find(\&CarpCatcher::wanted, '.');

__END__