Filehandler an Unterfunktion übergeben?

[Stefan Welscher]

Hallo,
ich habe ein Programm in dem ich einen Filehandler an eine Unterfunktion übergeben muss. Leider hab ich das bisher noch nicht hinbekommen. Bisher sieht das ganzewie folgt aus (funzt aber eben nicht):

  
sub constructor1 ()  
{  
   $FILE=$_[1];  
   print $FILE "2nd line\n";  
}  
  
  
open (FILE, ">",$filename);  
  
print FILE "1st line\n";  
constructor1 (<FILE>);  
  
close (FILE);  

Wie kann ich den Filehandler richtig übergeben?

Danke!