When i click a submit on the form for a guest book the cgi script dies and leaves a message on the web server error log(Apache running on linux) that i can't open dbm file.So what possible wrong with the script.While i execute the same program on the command line it executes and creates a db file.So can any one help me find out what's wrong???

code is a follows

#!/usr/bin/perl

$temp = $ENV{'QUERY_STRING'};
@pairs = split(/&/, $temp);

foreach $item(@pairs){
    ($key, $content) = split(/=/, $item, 2);
     $content =~ tr/+/ /;
     $content=~ s/%(..)/pack("c",hex($1))/ge;
     $fields{$key}=$content;
}

print "Content-type: text/html\n\n";

#when header written here generates an error can't open #dbm file in t
+he server error log.

 dbmopen(%users,"friends", 0666)
  || die "Can't open DBM  file";

print "Content-type: text/html\n\n";

#when header written here generates an error premature #ending of head
+ers in the server error log.


if (!defined($users{$fields{'email'}})) {

$users{$fields{'email'}}="$fields{'firstname'}::$fields{'lastname'}::$
+fields{'cont'}::$fields{'gender'}::$fields{'State'}::$fields'country'
+}::$fields'gender'}::$fields{'age'}";

}
else {

   print "Someone has already registered from that e-mail address. Sor
+ry.";

}
[download]

Edit by dws to add <code> tags