perl guess

#!/usr/bin/env perl
 
use warnings;
use strict;
 
srand (time ^ $$ ^ unpack "%32L*", `ps axww | gzip`);
my $p = undef;
do {
        run();
        print "Play again? ";
        chomp($p = <STDIN>);
} while ((lc $p) eq 'y');
 
sub run {
        my $s = int(rand 100)+1;
        my $g = undef;
        my $t = 0;
        do {
                do {
                        print "Guess (1-100)?\n";
                        chomp($g = <STDIN>);
                } while (!($g=~/\d+/) || $g>100 || $g<1);
                $t++;
                if ($g > $s){
                        print "$g is too HIGH!\n";
                } elsif ($g < $s) {
                        print "$g is too LOW!\n";
                }
        } while ($g != $s);
        my $y = $t == 1 ? "y" : "ies";
        print "$g is correct, YAY! It only took you $t tr$y!\n";
}