open(my $file, '<', $file_name) or die "Sorry, we can't open your $fil; open (WRITE, ">>concatenare.txt");