[PERL] Problema con perl/tk

[basileus_82]

ciao a tutti

mi sto dedicando alle interfacce grafiche con perl + Tk

ho un problema

facendo delle operazioni etc.., in un TEXT ho una serie di caratteri
il mio obiettivo è quello di salvarli in un file

Purtroppo ho un problema solo nel prendere questi caratteri dal WIdget Text


sub saveFile {
my $my_save=$mw->getSaveFile(-filetypes => $types,
-initialfile => 'aaa',
-defaultextension => '.text');

open(OUT,">$my_save");
print OUT "111111";
close OUT;
}


se inserisco gli 111111 in quel modo me li scrive nel file che crea quando salvo
ho provato con


print OUT $text->get(1.0, 'end');


ma non funge

PS: il widget $text è stato già creato