Select Code to Download

sub new {
    my $pkg = shift;
    return bless {}, ref $pkg || $pkg;
}

use strict;
use warnings;
...

printf "obj isa %s\nfoo isa %s\n", $obj, $foo;