CGI - Menu en perl

#!/usr/bin/perl

use strict;

use warnings;

sub mostrar_menu {

    print "Menú:\n";

    print "1. Opción 1\n";

    print "2. Opción 2\n";

    print "3. Opción 3\n";

    print "0. Salir\n";

}

sub obtener_opcion {

    print "Elige una opción: ";

    my $opcion = <STDIN>;

    chomp $opcion;

    return $opcion;

}

sub opcion_invalida {

    my $opcion = shift;

    return $opcion < 0 || $opcion > 3;

}

sub main {

    while (1) {

        mostrar_menu();

        my $opcion = obtener_opcion();

        if (opcion_invalida($opcion)) {

            print "Opción inválida. Por favor, elige una opción válida.\n";

            next;

        }

        if ($opcion == 0) {

            print "Saliendo del programa. ¡Hasta luego!\n";

            last;

        }

        print "Has elegido la opción $opcion.\n";

        # Aquí puedes realizar acciones según la opción elegida

    }

}

main();