# Perl lets you use a glob wherever you would use a filehandle, so globs are often used to pass filehandles to a subroutine:


  open(HANDLE, $filename) or die;
  mysub(*HANDLE);


##</code><code>##

  sub mysub { my $fh = shift; while (<$fh>) { ... } }