6 use Data::Dump qw(dump);
8 my $user = shift @ARGV || die "usage: $0 u2001\n";
10 my $dir = (getpwnam($user))[7];
12 die $! unless -d $dir;
14 my $path = "$dir/.md5";
16 die "$path: $!\n" unless -r $path;
19 tie %h, "TokyoCabinet::HDB", $path || die $!;
21 while( my($k,$v) = each(%h) ) {
22 $k = "$dir/$k" if $ENV{FULL};