#!/usr/bin/perl -w
$| = 1;
use strict;

delete $ENV{'http_proxy'};

my $wget = "wget -q -s -O - " . join( ' ', @ARGV ) . "|";

open( FOO, $wget ) or die "Unable to run ``$wget'': $!";
while( <FOO> ) {
    if( /^\s*$/ ) { last; }
    print $_;
}
close( FOO );