PTIML : Guess A Number Season 1 Episode 3 (Perl)

In Programming Things In Multiple Languages, I have decided to implement the same program across multiple languages. The first program I am going to make is a remake of the old "Guess A Number" game. This is part 3, where I use Perl. Source Code Available : http://www.codewarriormalo.com/Projects/GuessANumber Episode 1 (Pascal): https://www.youtube.com/watch?v=ThrRv51OL1o Episode 2 (C/C++): https://www.youtube.com/watch?v=SQog2SJWcwM Episode 3 (Perl): https://www.youtube.com/watch?v=_Z5ap8xPKJI Episode 4 (Python & Java): https://www.youtube.com/watch?v=y6TpGKM1EtA Episode 5 (C#): https://www.youtube.com/watch?v=n80rg2Rqa_0