import -window root imagen.png

#!/usr/bin/perl
sub preguntas {

print "Nombre:\n";
$nombre=<STDIN>;
chop($nombre);
print "Apellidos:\n";
$apellidos=<STDIN>;
$nombrecompleto="$nombre $apellidos";
chop($nombrecompleto);
print "Te llamas $nombrecompleto? (si o no)\n";
$confirmacion=<STDIN>;
chop($confirmacion);
}
printf "Bienvenido a la prueba de llamadas a sub rutinas para firos modificada \n";
&preguntas;

if($confirmacion eq "si")
{
        print "Bienvenido $nombrecompleto\n";
	exit(0);
}

elsif ($confirmacion eq "no")
{        print "No mientas jodio, repite los pasos xDD\n";
        &preguntas;
}