Textfile="file.htm";
use Cwd;
chdir("$ENV{DOCUMENT_ROOT}/directory") || die "Can't move to /etc, error = $!\n";
my $dir = getcwd;

open (DAT,">${dir}${TextFile}") or die $!;
print DAT "$text\n" or die $!; 
close(DAT) or die $!;