open (my $OUTFILE, '>', "$curr_dir/List.txt") or die "Cant op
+en '$dir.txt!'  $!";