tie, tk::text pomoc

Zasto ovo radi:

open (OPEN,"<$open");
@lines = <OPEN>;
tie *STDOUT, Tk::Text, $text;
print "@lines";
close OPEN;

A ovo nece:

print "nesto";
tie *STDOUT, Tk::ROText,$edit;

Ne izbacuje nikakav error samo nece.

Ako nisi promasio neki parametar onda ti ova druga klasa nema definirano ponasanje za "zavezivanje" filehandleova, znaci ne moze se STDOUT vezati na bilo koju klasu.

perldoc perltie
> Tying FileHandles
> This is partially implemented now.
>
> A class implementing a tied filehandle should define the following
> methods: TIEHANDLE, at least one of PRINT, PRINTF, WRITE, READLINE,
> GETC, READ, and possibly CLOSE, UNTIE and DESTROY. The class can also
> provide: BINMODE, OPEN, EOF, FILENO, SEEK, TELL - if the corresponding
> perl operators are used on the handle.

Moze, u tome I jeste problem. Poenta I jeste u tome da ga vezem za
Tk::ROText widget, I da kroz print komandu ispisujem sta hocu, nego
stvar je u $edit promenljivoj jer perl javlja da ne moze da uradi
TIEHANDLE na ne postojecu promenljivu. Kako da importujem promenljive iz
druge skripte ako sam je pre toda pozvao sa use?