#!/usr/local/bin/perl

$qst=$ENV{'QUERY_STRING'};
$location="http://www.resellerratings.com/reseller_list.pl?search=$qst";
print "Location: $location\n\n";