find( \&wanted, @directories );

sub wanted {
  -l && !-e && ( ( push @msgs, "$File::Find::name" ) && $counter++ );
  ( -l && !-e && unlink "$File::Find::name" ||
       croak "Warning: couldn't unlink $File::Find::name:$OS_ERROR\n" ) unless $param{test};
  return;
}