$self->@File = ; ##

##

   $self->{file} = [  ];

##

##

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