Select Code to Download

use strict;
use warnings;
...
undef $object;

print "Done.\n";

# Created Foo=CODE(0x82cafec)
# Hello!
# DESTROYing Foo=CODE(0x82cafec)
# Done.

sub new {
    my $class  = shift;
    my $string = "Hello!\n";
    return bless( sub { print $string }, $class );
}