or download this
use strict;
use warnings;
...
#print '$fooobj::bar: ' . $foo_obj::bar . "\n"; # I want this to prin
+t 10, but it's an uninitialized var. So commented out.
print '$foo_obj-{bar}: ' . $foo_obj->{bar} . "\n"; #this prings 10 usi
+ng fields
print '$foo::bar: ' . $foo::bar . "\n"; # this prints 10 without the p
+ackage name