sub parsefile {
  my $self = shift;
  my $file = shift;

  open(FILE,$file);
  my $file;
  while(<FILE>) { $file .= $_; }
  ...