Perlで時刻計算を行う - Time::Piece 編 - ref: http://qiita.com/omokawa_yasu/items/7ef1b9782b619bde5699