Juego piedra papel o tijeras perl

Estaba viendo que en distintos lenguajes de programación existen algoritmos básicos para el aprendizaje,y ya lo había hablado,en esta ocasión les dejo este juego que es el conocido juego de piedra papel o tijera escrito en Perl:

Y también lo uso como ejemplo de lo que vimos en la entrada pasada de switching, y me equivoque dije que necesitabamos usar 5.10 para poder hacer switching en Perl 5.16 y no,se puede usando 

feature qw{ switch };

Y bueno les dejo el juego para que se diviertan un rato,jugando,modificandolo, entendiéndolo, arreglándolo,etc:

Enlace

Eso es todo :D

Si tienes problemas o un aporte comenta :D