my $self = {};
print "\$self ist ein Objekt von $1\n" if ref $self && $self =~ /([^=]*)=/;

bless $self, "Foo::Bar";

print "\$self ist ein Objekt von $1\n" if ref $self && $self =~ /([^=]*)=/;