Acortar colores en perl

[neodani]

Lo he intentado así, que si no es igual a 1 muestre ninguno y finalice el programa, y si es igual a 1 muestre el dominio, pero no funciona correctamante, por qué? :S

print '- Dominio introducido: ', colored('NINGUNO', 'bold red'),"\n" if (@ARGV != 1){exit;}
print '- Dominio introducido: ', colored("$DOMINIO",'bold magenta'),"\n" if @ARGV == 1;


syntax error at ./perl_stats.sh line 36, near "){"
syntax error at ./perl_stats.sh line 45, near "}"
Execution of ./perl_stats.sh aborted due to compilation errors.

Muchas gracias de antemano!