open(DATABASE, ">>/http01/cgi-bin/form/db/db.txt")

##</code><code>##

my $fname="/http01/cgi-bin/form/db/db.txt"
open(DATABASE,">>$fname") || die " $fname $!";