use strict;

##</code><code>##

    select directory1;
     print "$path\n";

##</code><code>##

print directory1 "$path\n";

##</code><code>##

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

##</code><code>##

    open Contract1, '<', $_ or die "Unable to open $_: $!";  
    local $/ = undef;            # slurp mode
    my $contents = <Contract1>;  # Hope the files are small! 
    close Contract1;

##</code><code>##

  @all = undef;
  shift @all;

##</code><code>##

   my @all;