my $map = new mapscript::mapObj('popup.map');

my ($label,$box_minx,$box_miny,$box_maxx,$box_maxy,$text);

while ( $label = $map->nextLabel() ) { #
** labelCacheMemberObj **

if ( $label->{status} ) {

my $point = $label->{point};

$box_minx = $point->{x} - 15;
$box_miny = $point->{y} - 10;
$box_maxx = $point->{x} + 15;
$box_maxy = $point->{y} + 10;

$text = "String = $label->{string}";

}

}