package foo ;

my $bless = bless({},foo);
print "AS STRING: $bless\n" ;

print "AS REF: ". ref($bless) ."\n" ;

__END__
## OUTPUT:
AS STRING: foo=HASH(0x1a7f04c)
AS REF: foo

##</code><code>##

  if ( UNIVERSAL::isa($bless , 'HASH') ) {
    print "mohhh\n" ;
  }