Select Code to Download

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

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