#!/usr/bin/perl
use LWP::UserAgent;
use CGI;
$ua = LWP::UserAgent->new;
$ua->agent("NuBrowser/10.7 ");
$res = $ua->request(HTTP::Request->new(GET =>  $ENV{QUERY_STRING} || "http://www.woot.com/DefaultMicrosummary.ashx"));
$q = CGI->new;
print $q->header($res->headers->{'Content-Type'}),$res->content;
print "<!--\n";
print $_,': ',$res->headers->{$_},"\n" foreach keys %{$res->headers};
print "-->\n";