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