sub scopeOut {

   my $woman = shift;
   my $beer = 2; #Min. required for approach()

   while ($woman->{'width'} >> $woman->{'height'}) {
      $beer++;
      blur(vision());
   }

   approach($woman);

}