DB<21> sub kelly { print "say my name, say my name" }

  DB<22> $anosub = \&kelly

  DB<23> delete $main::{kelly}

  DB<24> $anosub->()
say my name, say my name
  DB<25> kelly()
Undefined subroutine &main::kelly called at (eval 34)[c:/Strawberry/perl/lib/perl5db.pl:738] line 2.