find( {wanted => \&wanted, no_chdir=>1}, @directories );

sub wanted {
  my $wanted = -l && !-e;

  push @msgs, $_ and $counter++ if $wanted;

return if $param{test} or !$wanted;

  unlink or croak "Warning: couldn't unlink '$_' :$OS_ERROR\n";

return;
}