## module file, MyFile.pm
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;
  while (defined ($line = <$self->{FH}>)) {
    print "Line from file is: $line\n"
  }
}
1;

## script file, scrap.pl
#!/usr/local/bin/perl -w

use MyFile;
$my_object = MyFile->new();
$my_object->read_file();