Paso de un Fichero sin Prefijo como Referencia a un Typeglob

Otra forma de pasar un manejador de fichero sin prefijo es usar una referencia a un typeglob:

#!/usr/bin/perl -w
sub welcome {
  my $fh = shift;

  print $fh "Welcome ...\n";
}

open(FILE, ">test.txt");
$file = *FILE;
welcome($file);
close($file);