Select Code to Download

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

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