... or unlink on the fly, with the no_chdir option. With no_chdir $File::Find::name and $_ are equivalent.

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;
}
[download]

Update Refactored wanted function.