perl -Mstrict -le 'BEGIN{unshift@INC,sub{$$_[1]}};use Math::Trig'