pass file handle 1

[focussys]

how do i pass file handle to a subroutine

 

[feherke]

hi

sub hmm
{
  my $han=$_[0];
  my $lin=<$han>;
  print "--$lin--\n";
}

open HAN,"<input.file";
&hmm([red]\*[/red]HAN);
close HAN;'

Feherke.

http://rootshell.be/~feherke/