This:

  $self->@File = <FILE>;
[download]

Is not valid Perl.

I think you want

   $self->{file} = [ <FILE> ];
[download]

You can then read the array out using:

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

By the way, I also think you are confusing packages, which double in Perl as namespaces and classnames, with object data.

You may find the following perl documents handy:

perltoot, perlobj, perltut perlreftut, perlref and perl. Use perldoc documentname to view them on your system.

You might also want to split your code into smaller files :-)

Joost.

update: I meant perlreftut