my $newfilename="new-$TextFile";
open (DAT,">./../different-dir/$newfilename");
print DAT "$text\n"; 
close(DAT);