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