#!/usr/bin/perl
use strict;
use warnings;
use DateTime;
{
package FakeCal;
sub utc_rd_values {
return @{ $_[0] };
}
}
my $num = shift;
my $days = do { use integer; $num / 86400 };
my $secs = $num % 86400;
my $obj = bless [ $days, $secs, 0 ], 'FakeCal';
my $dt = DateTime->from_object( object => $obj );
print "\n $dt\n\n";