sub forward
{
while ($cookieforward[0] < 91)
{

while  ($cookieforward[$#cookieforward - $oldforwardcount] > 90 )
{
        if ($cookieforward[0] > 90)
                {
                last
                }
        else
        {
        $cookieforward[$#cookieforward - $oldforwardcount] = $cookieforward[$#cookieforward - $forwardcount ];
        $cookieforward[$#cookieforward - $forwardcount] = &increase($cookieforward[$#cookieforward - $forwardcount]);
        $oldforwardcount = $forwardcount;
        $forwardcount = $forwardcount + 1;
        }
}
$forwardcount = 1;
$oldforwardcount = 0;

print "Forward Cookie to return:";
foreach $crumb (@cookieforward)
{
print chr($crumb);
}
print "\n";
}
}