my $foo = "bar";
print bless \$foo, "Test";