#!/usr/bin/perl

print "Content-type: text/html\n\n";
use CGI;
use CGI::Session qw();
use DBI;
use warnings;

$get = new CGI;

$token = $get->param('token');

my $s = CGI::Session->new($token);
print $s->param("user_id");