sub f { use Time'Local;(gmtime timegm 0,0,0,25,11,-1900+pop)[6] }