perl で時刻計算 - Time::Piece編 - 指摘されたのを修正したバージョン ref: http://qiita.com/omokawa_yasu/items/f6b7be63c29b7cc0af20