perl -wle 'use TT; sub TT::s2 { print "NO S2!"; } s1();'