- 夏休み (特別休日) は 4日
- 2002 年 6 月 21 日から 10 月 18 日 までに取る
- 分割取得可能

100 円ショップで見つけた CD を格納するやつ。重ねられるらしいけど、
やっぱ棚みたいのがいいな。格納する CD の幅が決められていると不定型
のが入らなくて不便なんだよね。結局買わなかった。

日時データの取得。
今まで

my ($sec, $mi, $h, $dm, $mo, $y) = localtime(time);
my $DATE = sprintf "%4s-%02s-%02s %02s:%02s",
                  $y + 1900, $mo + 1, $dm, $h, $mi;

これから

use POSIX qw(strftime);
print strftime "%Y-%m-%d %T\n", localtime;
print strftime "%Y-%m-%d-%H-%M-%S\n", localtime;

会社のフィットネスクラブのエアロビに行きたかったが、
腰痛なので今日はやめる。