... else { print $q->header(), "\n", "\n", "\n", "\n", ""; } ...