print Time::Piece->strptime($date_str, "%d-%b-%Y")->yday(),"\n";