Select Code to Download

use Class;
use Class::SubClass;

my $obj = Class->new(...authentication vars...);

my $subobj = $obj->subclass->new();

my $subojb = Class::SubClass->new(...authentication vars...);

sub subclass {
    my $self = shift;
    return Class::SubClass->new(%{$self});
}