c:\@Work\Perl\monks>perl -wMstrict -le
"use Scalar::Util qw(reftype)
 ;;
 my $blessed_ref   = bless { 'foo' => 'bar' };
 my $unblessed_ref =       { 'bim' => 'bam' };
 ;;
 print 'ref: ',                   ref     $blessed_ref;
 print 'Scalar::Util::reftype: ', reftype $blessed_ref;
 ;;
 print qq{blessed stringization:   $blessed_ref};
 print qq{unblessed stringization: $unblessed_ref};
"
ref: main
Scalar::Util::reftype: HASH
blessed stringization:   main=HASH(0x1825f6c)
unblessed stringization: HASH(0x1826098)