Help for this page

Select Code to Download


  1. or download this
    perl -wle 'use TT; sub TT::s2 { print "NO S2!"; } s1();'
  2. or download this
    perl -wle 'use TT; BEGIN { undef *TT::s2; } sub TT::s2 { print "NO S2!
+"; } s1();'