DB<113> sub tst { print "bla" }

  DB<114> $t=\&tst

  DB<115> $t->()
bla
  DB<116> *tst=sub { print "haha" }

  DB<117> tst()
haha
  DB<118> *tst=$t

  DB<119> tst()
bla
  DB<122> sub tst { print "new" }

  DB<123> $t->()
bla
[download]

use strict;
use warnings;
$\="\n";


*tst=sub { print "orig"    };


tst();

my $safe=\&tst;

{
  no warnings;
  *tst=sub { print "new"};
}

  tst();

{
  no warnings;
  *tst=$safe;
}

  tst();
[download]