Select Code to Download

#!/usr/bin/perl -w

...

find_cheese(@mouse{'x','y'});
print "Cheese found!!\n" if not $poss;

#!/usr/bin/perl -w

...
        select(undef, undef, undef, 0.25);
    }
}