perl -e 'open i , i  ;  *i == yours or !$you::see ? &i::wish = i::you : you::me'