sub F(){use POSIX;mktime<>!~/ .* /..2,$',$&-1,$`+100}print+(Same,More,Less)[F<=>$_],$/for(86400-F+F*2)x<>