Perl - Archivos como parámetros

Hola, quisiera saber como se pueden pasar archivos como parámetros y que funcione. La cuestion es:

sub PrintToFile() {
$file = shift;
$data = shift;
print $file $data;
}

Para llamar a la función ¿como se hace?:

open(F,"archivo.txt");
& PrintToFile(F,"Hola");
& PrintToFile(*F,"Hola");
& PrintToFile(\*F,"Hola");

¿Alguna idea?

Gracias a todos. Un saludo.

Diego :: chairman

Gracias a todos, ya está solventado. Estaba bien, sólo que estaba mirando el archivo que no era... :)

Saludos.

Diego :: chairman