#!/usr/bin/perl
use strict;
use warnings;
my $i = 2456043.499992;
my $j = int($i);
my $k = $i-$j;
print "$i - $j == $k\n";
exit;