A probléma, hogy az LWP::Simple get() függvénye a karakterkódolás figyelembe vételével adja vissza a tartalmat, miközben Te bináris fájlt töltesz le, de nem application/octet-stream Content-Type-pal.
Ehelyett ha saját magad használod az LWP-t, akkor megoldható, hogy a Content-Type charsetet ne vegye figyelembe:
use LWP::UserAgent;
sub get {
my ($url) = @_;
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;
my $response = $ua->get($url);
if ($response->is_success) {
return $response->decoded_content(charset => 'none');
}
else {
die $response->status_line;
}
}