Filehandler innerhalb eines Packages an Funktion übergeben

[Frank85]

Hallo zusammen,

ich hab eine Klasse in Perl 5.8.
package Test;

sub new{  
...  
open(FILE,"> $_[1]); # Datei öffnen  
}  
  
#in die Datei schreiben.  
sub write{  
  
print FILE "Blablub";  
}

Ich würde halt gerne die Datei öffnen, was auch noch nicht geht.
UNd dann gerne auf FILE in einer sub-Funktion die von außen aufgeruft verwenden.

Hat das schonmal jemand gemacht?