#!/usr/local/bin/perl -w

use strict;
require 5;

my($now) = time;
my($year_delta) = 0;
my($then);

while ($year_delta < 50) {
    $then = $now + int($year_delta*60*60*24*365.2422);
    print "Year " . (1997+$year_delta) . "  (time == $then)\n";
    print "  localtime ==" . localtime($then) . "\n";
    print "  gmtime ==" . join(',',gmtime($then)) . "\n";
    print "\n";
    $year_delta++;
}