Acortar colores en perl

[neodani]

Buenas,

Me pregunto si no existe una forma más ligera de hacer este comando

Código PERL:

$NumArg = @ARGV; # NumArg almacena el nú de argumentosi
if ($NumArg != 1){
        print "- Dominio introducido: ";print color 'bold red';print "NINGUNO\n"; print color 'reset';
}
 

El resultado que quiero conseguir es

- Dominio introducido: NINGUNO

Muchas gracias de antemano!