$map->{scalebar}->{imagecolor}->{green} = 200; #
** colorObj **
$map->{scalebar}->{imagecolor}->{red} = 0;
$map->{scalebar}->{imagecolor}->{blue} = 0;

$map->{scalebar}->{label}->{color} = $map->addColor(0, 0, 0);

$map->{scalebar}->{label}->{size} = $mapscript::MS_MEDIUM;

$map->{legend}->{width} = 18;

$map->{legend}->{height} = 12;

$map->{reference}->{minboxsize} = 5;

$map->{reference}->{maxboxsize} = 120;