Select Code to Download

#!/usr/bin/perl -w

...
     print tied($o->{'tiedScalar'})?"tiedScalar is still tied\n":"tied
+Scalar is now untied\n";
}
0;

C:\Documents and Settings\Owner\Desktop>perl n8.pl
TIESCALAR
...
myObj destroyed

C:\Documents and Settings\Owner\Desktop>

C:\Documents and Settings\Owner\Desktop>perl n8.pl
TIESCALAR
...
myObj destroyed

C:\Documents and Settings\Owner\Desktop>