5.8.1: Segfault with $Config and File::Find?

I can't figure out what causes it, but the following script (called
perlmodulelist) raises segmentation faults on my box:

#!/usr/local/bin/perl -l
use strict;
use Config;
use File::Find;

my %mod;

for my $inc (@INC) {
    next if $inc eq '.';
    find(sub { check_mod($inc, \%mod) }, $inc);
}

print for sort keys %mod;

sub check_mod {
    my($dir, $mods) = @_;
    /\.p(m|od)$/ and push_mod($dir, $File::Find::name, $mods);
}

sub push_mod {
    my($dir, $name, $mods) = @_;
    $name =~ s@^$dir/(mach/|$Config{archname}/)?@@;
    $name =~ s@/@::@g;
    $name =~ s/\.p(m|od)$//;
    $name =~ s/^pod:://;
    $mods->{$name} = 1;
}

__END__

attached is an output of perl -V:

Summary of my perl5 (revision 5.0 version 8 subversion 1) configuration:
  Platform:
    osname=freebsd, osvers=4.4-stable, archname=i386-freebsd-thread-multi
    uname='freebsd slasher.edge.intranet 4.4-stable freebsd 4.4-stable #3: tue apr 16 17:24:29 jst 2002 root@slasher.edge.intranet:usrsrcsyscompilemy_kernel i386 '
    config_args='-des -Dusethreads'
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=define use5005threads=undef useithreads=define usemultiplicity=define
    useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
    use64bitint=undef use64bitall=undef uselongdouble=undef
    usemymalloc=n, bincompat5005=undef
  Compiler:
    cc='cc', ccflags ='-DHAS_FPSETMASK -DHAS_FLOATINGPOINT_H -fno-strict-aliasing -I/usr/local/include',
    optimize='-O',
    cppflags='-DHAS_FPSETMASK -DHAS_FLOATINGPOINT_H -fno-strict-aliasing -I/usr/local/include'
    ccversion='', gccversion='2.95.3 20010315 (release) [FreeBSD]', gccosandvers=''
    intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
    alignbytes=4, prototype=define
  Linker and Libraries:
    ld='cc', ldflags ='-pthread -Wl,-E  -L/usr/local/lib'
    libpth=/usr/lib /usr/local/lib
    libs=-lgdbm -lm -lcrypt -lutil -lc_r
    perllibs=-lm -lcrypt -lutil -lc_r
    libc=, so=so, useshrplib=false, libperl=libperl.a
    gnulibc_version=''
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
    cccdlflags='-DPIC -fPIC', lddlflags='-shared  -L/usr/local/lib'


Characteristics of this binary (from libperl): 
  Compile-time options: MULTIPLICITY USE_ITHREADS USE_LARGE_FILES PERL_IMPLICIT_CONTEXT
  Built under freebsd
  Compiled at Sep 25 2003 22:19:23
  %ENV:
    PERL5LIB="/home/miyagawa/local/lib/perl5/site_perl/5.005"
  @INC:
    /home/miyagawa/local/lib/perl5/site_perl/5.005
    /usr/local/lib/perl5/5.8.1/i386-freebsd-thread-multi
    /usr/local/lib/perl5/5.8.1
    /usr/local/lib/perl5/site_perl/5.8.1/i386-freebsd-thread-multi
    /usr/local/lib/perl5/site_perl/5.8.1
    /usr/local/lib/perl5/site_perl
    .

• 5.8.1: Segfault with $Config and File::Find? by Tatsuhiko Miyagawa
• Re: 5.8.1: Segfault with $Config and File::Find? by Dave Mitchell
• Re: 5.8.1: Segfault with $Config and File::Find? by Tatsuhiko Miyagawa
• Re: 5.8.1: Segfault with $Config and File::Find? by Dave Mitchell
• Re: 5.8.1: Segfault with $Config and File::Find? by Tatsuhiko Miyagawa
• Re: 5.8.1: Segfault with $Config and File::Find? by Slaven Rezic
• Re: 5.8.1: Segfault with $Config and File::Find? by Nicholas Clark
• Re: 5.8.1: Segfault with $Config and File::Find? by Slaven Rezic
• Re: 5.8.1: Segfault with $Config and File::Find? by Nicholas Clark