#!/usr/bin/perl
use DB_File;
$\ = $/;
$db = "user.db";
tie(%db, 'DB_File',$db);
%ss = ('aaa'=>"ffffffff");
$db{user} = \%ss;
print "\%ss = ".\%ss;
print "%db = ";
print "\t".$_."->".$db{$_} foreach (keys %db);
print $db{user};
print $ss{aaa};
print $db{user}->{aaa};
print $_ foreach (keys %{$db{user}});
print "-----";