C:\Documents and Settings\Owner\Desktop>perl n8.pl
TIESCALAR
FETCH
going to untie
Use of uninitialized value in concatenation (.) or string at n8.pl line 19.
tied() is
DESTROY
Use of uninitialized value in concatenation (.) or string at n8.pl line 21.
tied() is
untied
$o->{'tiedScalar'} is final value
tiedScalar is now untied
myObj destroyed

C:\Documents and Settings\Owner\Desktop>