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

##</code><code>##

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