Perl referencia a una Anónimo Subroutine

\\ n "; mi $ cref = sub {print " visto " ;} ; & $ cref ; print"