#!/usr/bin/perl

use LWP::Simple;
$url = $ENV{'QUERY_STRING'}; 
print "Content-type: text/xml\n\n";
print get($url);