print ref( \$scalar ); # SCALAR
print ref( {} ); # HASH
print ref( [] ); # ARRAY

print ref( \&subroutine ); # CODE

print ref( CGI->new ); # CGI