use Fcntl;
use MLDBM qw/DB_File Storable/;


tie %db, 'MLDBM', 'webpaper_pwds.db', O_CREAT|O_RDWR, 0640 or die $!;
tie %clas, 'MLDBM', 'webpaper_clas.db', O_CREAT|O_RDWR, 0640 or die $!;
tie %ans, 'MLDBM', 'webpaper_ans.db', O_CREAT|O_RDWR, 0640 or die $!;

untie %db;
untie %clas;
untie %ans;