package MainObject;

sub new
{
    ...
    $self->{nested} = new NestedObject;
    ...
}

sub callNestedObjectMethod
{
    my $self = shift;
    $self->{nested}->theMethod;
}