##
#!/usr/bin/perl -T
use warnings;
use strict;
use CGI qw(-utf8);
use CGI::Carp qw(fatalsToBrowser);
my $q = CGI->new();
my $token = $q->param('token');
my $key = $q->param('key');
my $usr = $q->param('usr');
print $q->header("text/html;charset=UTF-8");
print "Token: $token - Key: $key - Usr: $usr";