Select Code to Download

my $q=new CGI;
.....
$token=valid_login($q)
redirect_to_login($q) unless $token;

my $fakeq=new CGI;
$fakeq->{'.cookies'}->{ID1}=$cookieobj1;
...
.....
$ftokenobj=valid_login($fakeq)
die "Should not happen!" unless $ftokenobj;