C:\Documents and Settings\Owner\Desktop>perl tw.pl
tie parent= REF(0x18f0cd4) deref parentObj=HASH(0x3580fc)
fetch of tobj
$VAR1 = bless( {
                 'parent' => \bless( {
                                        'parentdata' => 'some parent data',
                                        'slice' => ''
                                      }, 'parentObj' )
               }, 'tobj' );
fetch parent= REF(0x18f0cd4) deref parentObj=HASH(0x3580fc)
from main, getting parentObj's slice 'tied result data'
Undefined subroutine &main::adxddsad called at tw.pl line 58.
from parentObj's destroy parent data is 'some parent data'
fetch of tobj
$VAR1 = bless( {
                 'parent' => \undef
               }, 'tobj' );
fetch parent= SCALAR(0x18f0cd4) deref eval failed
parentObj's destroy print slice is 'tied result data'
tobj destory

C:\Documents and Settings\Owner\Desktop>