Select Code to Download

use strict;

    select directory1;
     print "$path\n";

print directory1 "$path\n";

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

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

  @all = undef;
  shift @all;

   my @all;