in reply to Appending downlad file LWP

Just open the file before starting the download, then print the downloaded chunk into it in the callback: 
#!/usr/bin/perl
use strict;
use warnings;

use LWP::UserAgent;

my $url = 'http://www.example.com';
my $file = 'myfile.exe';

my $ttlDown = 0;
my $ua = LWP::UserAgent->new;

open my $out, '>', $file or die "$file: $!";

my $resp = $ua->get(
    $url,
    ':content_cb' => sub {
        my ($data, $response) = @_;
        my $size = $response->content_length;
        $ttlDown += length $data;
        printf STDERR "%7.1f KB of %7.1f (%5.1f%%)\n",
            $ttlDown / 1024.0, $size / 1024.0, $ttlDown * 100.0 / $siz
+e;
        print {$out} $data;
    },
);
close $out;

[download]
($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,

[download]

Replies are listed 'Best First'.
Re^2: Appending downlad file LWP
by Anonymous Monk on Feb 17, 2018 at 00:05 UTC

    The file downloaded this way does not seem to work. I tried with PDFs and JPGs. In both case the files are not as they should (picture is a mess of colours, PDF is blank). What am I overseeing?

[reply]
Re^2: Appending downlad file LWP
by Anonymous Monk on Feb 17, 2018 at 00:15 UTC

    I forgot to mention that also exe doesn't work. They do not seem to be reconstructed properly and Windows say they are corrupted

[reply]
      A, you're on MSWin? Try specifying 
      open my $out, '>:raw', $file or die "$file: $!";

      [download]

      to turn off special handling of newlines.

      ($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,

      [download]
[reply]
[d/l]
[select]
        Binmode tells the world what you need, not what it happens to be, bad choroba ba:D!
[reply]

In Section Seekers of Perl Wisdom