Perl tk

Bonjour,

Je débute (jour zéro) en PERL TK, je n'arrive pas à trouver comment en cliquant sur un bouton, je peux modifier une variable.

Par exemple:

my $toto = 0;

Je veux que sur un clic bouton $toto = 1. J'utiliserai ensuite la valeur de toto pour que mon modèle face telle ou telle action.

Sur le net je ne vois que des exemples avec des appels de fonctions comme

$mw->Button(-text => "Done", -command => \&uneFonction)->pack;
Mais je ne vois pas par exemple en utilisant cette syntaxe comment faire que si uneFonction retourne $p_toto = 1 mettons, et ben que $toto récupère $p_toto.

Merci pour votre aide!