Comando switch para Perl
