I think Date::Manip is for you. It's everything PLUS the kitchen sink.

$_="goto+F.print+chop;\n=yhpaj";F1:eval