Select Code to Download

#!/usr/bin/perl

...
    
    print "<script>window.location.href = 'index.pl';</script>";
}

#!/usr/bin/perl

...

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