#!/usr/bin/perl -w
use strict;
print "Status: 301 Moved Permanently\n";
print "Location: http://COMPLETE/URI\n\n";
# complete URI (not relative) is important for proxies/squid/and HTTP-1.0
# Sending STATUS _first_ also matters
exit;