Select Code to Download

perl -we 'bless( \sub {}, "Foo" )->();'
Not a CODE reference at -e line 1.

perl -we 'print bless( \sub {}, "Foo" ) . "\n";'
Foo=REF(0x82998c4)

use strict;
use warnings;
...
}

print "Done.\n";

# Created Foo=CODE(0x82b682c)
# Ha! Ha! Still there!
# DESTROYing Foo=CODE(0x82b682c)
# Done.