my $server_url = 'http://127.0.0.1:6000/RPC2';

    my $server     = Frontier::Client->new(
        url      => $server_url,
        username => 'token',
        password => $token
    ) or  die "Не могу выполнить : $!";

    my $result = $server->call('sample.calc', $arg)  or  die "Не могу выполнить : $!";

...
    my $methods = { 'sample.calc' => &calc };
    my $d = Frontier::Daemon->new(
        LocalPort => 6000,
        methods   => $methods
    ) or die "Couldn't start HTTP server: $!";

    sub calc {....}

while (my $c = $d->accept) {
       if (my $r = $c->request->header('Authorization')) { ... }