Select Code to Download

my $ua = LWP::UserAgent->new;
$ua->proxy('http', $proxyname);
...
binmode $fh;
print $fh $image;
close $fh;