... stuff to get filename ..
.. loop through  those files..
for my $file (@files) {
	my $link = readlink($file) || "Fooey";

	if ($link ne "Fooey") {
		if (-e $link) {
			print "symlink OK, moving on";
		}else{
			unlink $file;
		}
	}
}