($relative_path=$ENV{SCRIPT_NAME}) =~ s|[^/]+$||;
$absolute_path=$ENV{PATH_TRANSLATED}.$relative_path;

$filename=$absolute_path.'file.txt';