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

##</code><code>##

use strict;
use warnings;
package Foo::Bar;
package main;
print Foo::Bar::;    # warns:
# Name "Foo::Bar" used only once: possible typo
# print() on unopened filehandle Bar
print Foo::Bar::, "Baz\n"; # prints Foo::BarBaz