Rock paper scissors game in Perl - updated after reading comments from Darryl Medley thanks

[G+_Scott B]

Rock paper scissors game in Perl - updated after reading comments from  Darryl Medley thanks.

http://pastebin.com/UhmEVefa

http://pastebin.com/UhmEVefa

[G+_Scott B]

bug fix - line 49 change $selection eq 2) to read $selection == 3

 

line 55 change $selection eq 3) to read $selection == 2

 

line 61 change $selection eq 1) to read $selection == 1

 

this fixs the code to the computer say you win  and not i win as i noticed when it was shown on the program,