$TextFile = "script.pl";
use Cwd;
chdir("$ENV{DOCUMENT_ROOT}/some_directory") or die $!;
my $dir = getcwd;
open (DAT,">${dir}${TextFile}") or die $!;
print DAT ("$ENV{DOCUMENT_ROOT}/cgi_bin/$text\n") or die $!; 
close(DAT) or die $!;