Select Code to Download

#!/usr/bin/perl
use warnings;
...
     }
     print "Chosen => ", $i, "\n";
}

C:\Code>perl no_repeats.pl 5
Guess = 1
...
Guess = 0
Guess = 3
Chosen => 3