my $ua = LWP::UserAgent->new;
$ua->proxy('http', $proxyname);
my $req = HTTP::Request->new('GET', $url);
my $page = $ua->request($req)->content;
open my $fh, '>', $filename or die "Can't write to $filename: $!";
binmode $fh; # required on Windows, OS/2, DOS; doesn't hurt anywhere else
print $fh $page;
close $fh;