#!/usr/bin/perl | |
# Simple script to generate a 302 HTTP redirect | |
print "Status: 302 Moved Temporarily\r\n"; | |
print "Location: referrer.html\r\n"; | |
print "Content-type: text/html\r\n"; | |
print "\r\n"; | |
print <<HERE_DOC_END | |
<html><body> | |
This page should not be seen - it is a 302 redirect to another page. | |
</body></html> | |
HERE_DOC_END |