データベース使わないの？
しかもPerlかよｗ