my $scalar = 1;
my $scalar_reference = \$scalar;
my $object = bless $scalar_reference, 'class_name';
$scalar = 2;
print "Yep, still an object!\n"
    if UNIVERSAL::isa( $object, 'class_name' );