$ perl -MTk -e" $a=tkinit(); $a->Button( qw! -text bam -command !, sub { $b->eventGenerate(q!<3>!); } )->pack; $b = $a->Text()->pack; MainLoop"