Select Code to Download

my $declon = -88.9999999999999999999;
my $declat = 44.1111111111111111111;
...
    substr(sprintf ("%.7f", $declon),0,-1), 
    "\n",
    substr(sprintf ("%.7f", $declat),0,-1);