I tried making a simple mailing list, well it's just a form that accepts data..but something is wrong. I get the error Cannot open file 'mailinglist.db': Permission denied. I don't see how the permission can be denied when I'm trying to set the permissions with the script. The mailinglist.db does NOT exist right now, it should as soon as the first piece of data gets stored.

Any suggestions?

#!/usr/bin/perl -w

use strict;
use warnings;
use POSIX;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use DB_File;

my %list;
my $list = "mailinglist.db";                 # location of database

tie %list, "DB_File", "$list", O_CREAT|O_RDWR, 0644, 
or die "Cannot open file '$list': $!\n";
    
print header, start_html;


    my $name    = param('name');
    my $email = param('email');


## Get the user information
if (param) {
if ($name) {
if ($email) {

if (exists $list{$email}) {
print "<b> Email address was already found in the database.  Action ca
+ncelled.</b>";
}
else {
$list{$email} = $name;
print "Thank you, $name.  You will be notified of site news and websit
+e updates.";
}
}
}
}

foreach (keys %list) {
print "$_ = > $list{$_}<br>";
}
[download]