Select Code to Download

#!/usr/bin/perl -w
use strict;
...
     print "from main, getting parentObj's slice '".$parentObj->{'slic
+e'}."'\n";
adxddsad();

C:\Documents and Settings\Owner\Desktop>perl tw.pl
tie parent= REF(0x18f0cd4) deref parentObj=HASH(0x3580fc)
...
tobj destory

C:\Documents and Settings\Owner\Desktop>

     perl512.dll!Perl_sv_kill_backrefs(interpreter * my_perl=0x003542a
+4, sv * const sv=0x01903c54, av * const av=0x0182b694)  Line 5433    
+C
     perl512.dll!Perl_magic_killbackrefs(interpreter * my_perl=0x00354
+2a4, sv * sv=0x01903c54, magic * mg=0x01822664)  Line 2211 + 0x14    
+C
...
     perl.exe!main(int argc=2, char * * argv=0x00242478, char * * env=
+0x00242dd0)  Line 23 + 0x12    C
     perl.exe!mainCRTStartup()  Line 398 + 0xe    C
     kernel32.dll!_BaseProcessStart@4()  + 0x23