sub foo {
   print "hi mom\n";
   my $ptr = \&foo;
   *foo=sub {
       print "that was unneccessary:";
       $ptr->();
   };
}

foo();
foo();