open my $fh , "<", "temp.txt"; $self->fh($fh); while (<$fh>) { print $_; }