#!/usr/bin/perl
use strict;
use encoding 'iso-2022-jp';

our $UA = q<getja12000.pl>;
our $data_dir_name = q<../.data/>;

## NOTE: 60 Yahoo! Category keywords from <http://www.yahoo.co.jp/> (2007-06-02).
our @keyword = qw/
  芸能人 音楽 映画 アニメ 占い
  テレビ ラジオ 新聞 雑誌
  車 スポーツ 旅 アウトドア ゲーム
  ショッピング B2B 雇用 金融
  写真 デザイン 演劇 歴史 文学
  図書館 辞書 郵便 電話番号
  住まい 暮らし 環境 グルメ 結婚
  ホームページ ハード ソフト
  大学 小中高 資格 専門学校
  行政 国会 法 税 議員
  病院 病気 薬 栄養 ダイエット
  生物 地球 天文 工学 化学
  言語 経済学 心理学 社会学
  都道府県 世界の国と地域
/;

require 'get.pl';

=head1 AUTHOR

Wakaba <w@suika.fam.cx>.

=head1 LICENSE

Copyright 2007 Wakaba <w@suika.fam.cx>

This library is free software; you can redistribute it
and/or modify it under the same terms as Perl itself.

=cut

1;
## $Date: 2007/06/02 12:12:28 $