Tie Statement Dies with "Permission denied"

Why does this script always die with a "Permission denied" message?

#!/usr/bin/perl

use strict;
use DB_File;
use vars qw(%h $k $v);

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

tie %h, "DB_File", "fruit", O_RDWR|O_CREAT, 0777, $DB_HASH or die "Can't open 'fruit':$!\n";
.
.
.

Please help. Thanks!

Well do you have permission to open 'fruit'?

I was told this code would create a db file, but I guess it didn't. Once I created 'fruit' with the necessary permissions, everything worked fine.

Does DB_File export the symbols O_CREAT and O_RDWR ? Try turning on warnings.

I'm using DB_File, but importing those symbols from Fcntl:

use Fcntl qw(O_CREAT O_RDWR O_RDONLY);