use strict;

  package MyFile;

  ## Constructor ##
  sub new {
    my $self = {};
    bless $self;
  }

  sub open_file {
    my $self = shift;
    open(FH, "textfile") || die "can't open file";
    $self->{FH} = \*FH;
  }

  sub read_file {
    my $self = shift;
    my $line;
    my $f = $self->{FH};
    while (defined ($line = <$f>)) {
        print "Line from file is: $line\n";
    }
  }

my $my_object = new();
$my_object->open_file();
$my_object->read_file();

##</code><code>##

<$self->{FH}>

##</code><code>##

<$self->   {FH}  >