DB<7> *beyonce = sub { print "say my name, say my name" }

  DB<8> beyonce()
say my name, say my name
  DB<9>

##</code><code>##

  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.

##</code><code>##

  DB<19> sub tst { map { return $_ } 42..1e6 ; return "never executed" }

  DB<20> p tst()
42
  DB<21>