sub display{ print <<"EOF";
...(form stuff here)...
EOF } #### sub quicklog{ ....store cookie stuff here.... ....then I tried the following.... print "$redirect\n\n"; }