#!/usr/bin/perl
&PrintHeader;
print "Status: 301 Document moved permanently\r\n";
print "Location: http://www.susans.org/\r\n";
print "\r\n";
# PrintHeader
# Returns the magic line which tells WWW that we're an HTML document

sub PrintHeader {
  return "Content-type: text/html\n\n";
}