$illumMap->setscanline(x => $nl, y => $i, pixels => $day_p x ($nl + $oh));

##</code><code>##

use Ham::Locator;
use Ham::WorldMap;

my $lat =  40.712778;
my $lon = -74.006111;
my $png = 'worldmap.png';

my $map = Ham::WorldMap->new;
my $loc = Ham::Locator->new;

$loc->set_latlng($lat,$lon);
$map->dotAtLocator($loc->latlng2loc, 12, Imager::Color->new(0,255,0));
$map->drawNightRegions(DateTime->now);

my ($x, $y) = $map->locatorToXY($loc->latlng2loc);

$map->write($png) or die $map->errstr;

print qq[Dot drawn at $x,$y on $png\n];