my $year= LocalTime( time(), \(my %time),
    qw( second minute hour day month year ) );