[Perl] How to pass file handle as parameter

 open(FN,$filename) ;

function (*FN) ; #*FN as a file handle pass into sub-routine