#!/usr/bin/perl

$a=$ENV{'QUERY_STRING'};
$tabrobotsearch='http://www.tabrobot.com/cgi-bin/tsearch.pl?mode=group&terms=';
print "Status: 302 Moved Temporarily\n";
print "Location: $tabrobotsearch".$a."\n\n";