sub redirect { my ($newLoc) = @_; if (!($cookie)) { hTTPHeader() } print < END exitScript(); exit; }