Select Code to Download

my $sessid = join("", @chars[ map { rand @chars } (1 .. 20) ]);

my $q = new CGI;
my $sessid = $q->cookie('SESSID');
...
    print $q->redirect("http://mydomain.org/memberarea/login/");
    exit;
}