Select Code to Download

my $x = sub { "test" };  bless $x, "HRM";
sub HRM::DESTROY { print "bye\n" }

my $y = eval 'sub {"test"}'; bless $y, "HRM";