eval('use dir_'.$day.'::'.$userId.' qw(\%diary)');
print "Can't use dir_$day::$userId module: $@";