sub call_ses {

    my $self = shift;

    ...

    my $endpoint_name = $self->AWS_endpoint;

}