Select Code to Download

  DB<7> *beyonce = sub { print "say my name, say my name" }
...
  DB<8> beyonce()
say my name, say my name
  DB<9>

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

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

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

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