[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