Acortar colores en perl

[jferrero]

Código Perl:

print '- Dominio introducido: ', colored('NINGUNO', 'bold red'), "\n" if @ARGV != 1;
 

Si usas Perl v5.10, entonces queda un poco más corto:

Código Perl:

say '- Dominio introducido: ', colored('NINGUNO', 'bold red') if @ARGV != 1;