open Contract1, "<./$_ \n";   # What's with the space and new-line?
  my @lines = <Contract1>;
  close Contract1;
  my $contents = join "", @lines;