After fixing errors as pointed out by others, also take note that working with symbolic links could result in some surprise, and you should take a look to
perldoc -f lstat. This is particularly needed when your link points nowhere.
Flavio (perl -e 'print(scalar(reverse("\nti.xittelop\@oivalf")))')
Don't fool yourself.