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