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

to something like :

open(DATABASE, ">>/http01/cgi-bin/form/db/db.txt") or die "Can't open 
+db.txt for append: $!\n";
[download]

That will give you an error message (as CubicSpline suggested, I'd bet it's that either your directory structure or permissions aren't set correctly). If this is a CGI script, you might want to put use CGI::Carp qw(fatalsToBrowser); at the top of your script (remove that line after the script goes into production, 'cos it could give valuable information to crackers). Adding that line will make sure you get to see the error message without poking around in the webserver's error logs.

Of course, that surmise is only correct for some values of "doesn't work." =)

HTH

perl -e 'print "How sweet does a rose smell? "; chomp ($n = <STDIN>); 
+$rose = "smells sweet to degree $n"; *other_name = *rose; print "$oth
+er_name\n"'
[download]