- my $t = shift;
- my ($year, $day) = (gmtime($t))[5,7];
-
- if ($year < 100) {
- $year += ($year < 50) ? 2000 : 1900;
- }
- return ($year, $day+1);
+ my $t = shift;
+ my ($year, $day) = (gmtime($t))[5,7];
+
+ if ($year < 100) {
+ $year += ($year < 50) ? 2000 : 1900;
+ }
+ return ($year, $day+1);