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