#!/usr/bin/perl -w
while (<>) {
	s/[\r\n]//g;
	last if ($_ eq "");
}
print "HTTP/1.0 302 Not here\r\n";
print "Location: http://www.arl.wustl.edu/~mwa/ad.xpm\r\n";
print "\r\n";
