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

##</code><code>##

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