$ perl -MTk -le " print Tk->findINC() "
C:/perl/site/5.14.1/lib/MSWin32-x86-multi-thread/Tk

$ ack --match "->bind" C:/perl/site/5.14.1/lib/MSWin32-x86-multi-thread/Tk
...