An Observable class for Perl (but mostly my playground for XS)