#!/usr/bin/env perl

use LWP::UserAgent;

my $url = 'http://bibbase.org/show?'.$ENV{'QUERY_STRING'};
my $ua = LWP::UserAgent->new;
my $can_accept = HTTP::Message::decodable;
my $response = $ua->get($url, 'Accept-Encoding' => $can_accept);

print "Content-type: text/html\n\n";
print $response->decoded_content;