open (DAT,">${dir}${TextFile}") or die $!;

##</code><code>##

D:\Development>perl -MCwd -e "print getcwd"
D:/Development
D:\Development>perl -MCwd -e "$f='test.pl'; $p=getcwd; print \"$p$f\""
D:/Developmenttest.pl

##</code><code>##

die "${dir}${TextFile}";