|
           V
my $text = $text->cget( -text ); 
           ^
           |