#!/usr/bin/perl 

use AnyDBM_File; 
use strict; 
my %database;

tie %database, 'AnyDBM_File', "bar", "0666","DB_HASH" or die "doh $!\n";
$database{test} = "yo baby"; 
untie %database; 


tie %database, 'AnyDBM_File', "bar", "0666", "DB_HASH" or die "wtf?? $!\n";
print $database{test}; 
untie %database; 

print "success 2\n";
exit;