foreach my $line (@{ $self->{file} }) {
      print $line;
  }