- or download this
use strict;
use warnings;
...
undef $object;
print "Done.\n";
- or download this
# Created Foo=CODE(0x82cafec)
# Hello!
# DESTROYing Foo=CODE(0x82cafec)
# Done.
- or download this
sub new {
my $class = shift;
my $string = "Hello!\n";
return bless( sub { print $string }, $class );
}