Select Code to Download

package Foo;

sub new
...

my $bar = Bar->new();
print "Bar is a ", ref $bar, "\n";