my $object3 = 'Foo::Bar'->new;
say ref $object3;   # says "Foo::Bar"