No terminar hasta que no se elija una opción valida

[neodani]

Buenas,

Siempre me he preguntado si existe alguna forma de hacer un menu, en el cual hay opciones y que si no se elije ninguna opción válida te vuelva aparecer el menú de forma indefinida, hasta que aciertes con la opción.

Actualmente cuando eligen una opción invalida se termina el programa y no vuelve aparecer el menú.

¿Se os ocurre alguna forma de hacerlo? con perl v5.8.8

Código PERL:

sub Crear_Nuevas_Stats {
    local $host;
 
    print colored(" - Selecciona el hosting donde apunta la web: ('q' para salir)",'cyan'),"\n";
    print "\t1) HosAPA01\n";
    print "\t2) HosAPA02\n";
    print "\t3) HosIIS01\n";
    print "\t4) HosIIS02\n";
    print "\t5) HosIIS03\n";
 
    chop ($host = <STDIN>);
 
    switch ($host) {
        case "1"    { print "Seleccionaste HOSAPA01\n" }
        case "2"    { print "Seleccionaste HOSAPA02\n" }
        case "3"    { print "Seleccionaste HosIIS01\n" }
        case "4"    { print "Seleccionaste HosIIS02\n" }
        case "5"    { print "Seleccionaste HosIIS03\n" }
        else     { print "Selecciona una opcion valida\n" }
    }
}
 

Muchas gracias de antemano.