Time::Piece

http://gihyo.jp/dev/serial/01/modern-perl/0015
http://search.cpan.org/~msergeant/Time-Piece-1.20/Piece.pm