#!/usr/bin/perl
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
    read(STDIN,$info,$ENV{"CONTENT_LENGTH"});
} else {
    $info = $ENV{'QUERY_STRING'};
}
print "Location: http://www.gospelcom.net/cgi-bin/hurl?$info\n\n";