Select Code to Download

#!/usr/bin/perl
use strict;
...
print '$obj->{"qualified_ref"}   '.\${$obj->{'qualified_ref'}}."\n";

exit;

package Bar;

...
}

1;

Package var before setting:   ()
Package var after  setting:   (Ogopogo)
...
$Bar::package_variable    SCALAR(0x815363c)
$obj->{"unqualified_ref"} SCALAR(0x8188950)
$obj->{"qualified_ref"}   SCALAR(0x8188950)