#!/usr/bin/perl

use strict;
use warnings;

# Mostrar el nombre de usuario
print "Hola ", `whoami`;

# Bucle infinito
while (1) {
    # Leer la respuesta del usuario
    print "dime si o no (s/n) ";
    my $respuesta = <STDIN>;
    chomp($respuesta);  # Eliminar el salto de línea

    # Evaluar la respuesta
    if ($respuesta =~ /^[sS]$/) {
        print "La respuesta es sí\n";
        last;  # Salir del bucle
    }
    elsif ($respuesta =~ /^[nN]$/) {
        print "La respuesta es No\n";
        exit;  # Salir del script
    }
    else {
        print "Que me estas container\n";
    }
}