Select Code to Download

$line = <$filehandle>; # simple scalar variable = read op
@files = <*.c>;        # anything else is a directory glob

$tmp = $this->{THAT}->[0]->{THE_OTHER};
$line = <$tmp>;

open FH, $file1 or die;    # open it, okay ...
push @filehandles, *FH;    # push the typeglob, fine ...
open FH, $file2 or die;    # reopening it, closing the previously open
+ed file!
push @filehandles, *FH;    # push it again

sub open_file {
  my ($self, $filename) = @_;
...
  open FH, $filename or die "opening $filename: $!";
  $self->{FH} = *FH;
}