http://www.perlmonks.org?node_id=1053308


in reply to time elapsed from set time

Time::ParseDate might help.