Select Code to Download

#!/usr/bin/perl -w
use strict;

...
    $theyre_incorrect = 0 if ($number_completly_right == 4);
    $guess_count++;
}