Perl module providing an object that dies whenever examined