#### #!/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";