my $lib = test1->new();
 ($self->{lib}) = ($lib->print_name());

##</code><code>##

 my $lib = test1->new();
 $self->{lib} = $lib;
 $lib->print_name();

##</code><code>##

 $self->{lib} = test1->new();
 $self->{lib}->print_name();

##</code><code>##

sub print_name {
    my $self = shift;
    print "I forgot what went here";
    return $self;
}