sub call_ses { my $params = shift; my $opts = shift; %opts = %$opts; %params = %$params; my $endpoint_name = $endpoint; }