>572
Date::Parseあたりのモジュール入れれば1発でできる。
標準で付いてるTime::Local使って,自分で関数書いても
10行ぐらいでできる(はず)