#!/usr/bin/perl
my $SERVER_NAME  = "uso-uso web server/0.1";
my $REDIRECT_URI = "http://www.usupi.org/sysad/";

while(<>) {
	last if /^\s*$/;
}

print "HTTP/1.1 302 Moved\r\n";
print "Content-Type: text/plain\r\n";
print "Server: $SERVER_NAME\r\n";
print "Location: $REDIRECT_URI\r\n\r\n";
