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

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

This works fine. Lisa.