#!/usr/bin/perl
use strict;
use warnings;
use Date::Calc qw(:all);
foreach (731158, 731178) {
  my ($year,$month,$day,$hour,$min,$sec) = Time_to_Date([$_]);
  print "$year $month $day $hour:$min:$sec\n";
}