#!/usr/bin/perl

use strict;
use warnings;

my $declon = -88.9999999999999999999;
my $declat = 44.1111111111111111111;

my $lon = int($declon * 1000000 + 0.5) / 1000000;
my $lat = int($declat * 1000000 + 0.5) / 1000000;

printf("%.6f\n", $lon);  # -88.999999
printf("%.6f\n", $lat);  # 44.111111