Select Code to Download

#Writer
use BerkeleyDB ;
...
                                   ) or confess("cannot open queue: $B
+erkeleyDB::Error\n");

$dbq->db_put(undef , 'toto');

# Reader
use BerkeleyDB ;
...

print "Status: $status\n" ;
print $data , "\n" ;

Status: DB_NOTFOUND: No matching key/data pair found

Modification of a read-only value attempted at reader.pl line 19