sub quicklog{
    ....store cookie stuff here....
    ....then I tried the following....
    print "$redirect\n\n"; 
            }