Hi,
sub Redirect {
my ($location)=@_;
print "Status: 302 Found\n";
print "Location: $location\n";
print "URI: <$location>\n";
print "Content-type: text/html\r\n\r\n";
print "<html><body>The page you requested can be found <a href="$location">here</a>.</body></html>";
}
So viel Zeit muß sein :-)
Cheatah