Select Code to Download

sub display{
    print <<"EOF";
    <FORM action="forum.pl?quicklog" method="POST">
...
    </form>
    EOF
    }

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