You're missing a backslash...
find(\&wantedTS, "$dir"); [download]
In reply to Re^3: Using File::Find by tobyink in thread Using File::Find by Dr Manhattan