Select Code to Download

juerd@lanova:~$ perl -MO=Deparse -e'BEGIN { eval "sub foo () { return 
+42; }" } print foo;'
sub BEGIN {
...
}
print 42;
-e syntax OK

*glob = sub () { value };

juerd@lanova:~$ perl -MO=Deparse -e'BEGIN { *foo = sub () { 42 } } pri
+nt foo;'
sub BEGIN {
...
}
print 42;
-e syntax OK