#!/usr/bin/perl

use warnings;
use strict;
use Data::Dumper;

my $foo = {};
bless($foo, "SOMECLASS");     #Comment this line out.

my $type = ref $foo;
print $type, "\n";