Explanation of anonymous monk's post:

grep -n "(text" test-tk2.pl 
153:   $left_frame->Label(text => "Perl Chat Client v$VERSION")
172:   $right_frame->Label(text => 'Buddies')
[download]

This shows two places where you have used "text" instead of "-text".

Adding the "-" should solve your problem.

Update: Just noticed that roboticus beat me to the punch.