use strict;
use warnings;
use LWP::Simple;
use LWP::UserAgent;

my $url='www.myurl.com';

my $ttlDown = 0;
my $resp = LWP::UserAgent->new()->get($url, ':content_cb' => sub {
      my ($data, $response) = @_;
      my $size = $response->content_length;
      $ttlDown += length $data;
      printf("%7.1f KB of %7.1f (%5.1f%%)$/", 
        $ttlDown / 1024.0, $size / 1024.0, $ttlDown * 100.0 / $size
      );
      #Here I need to append the bit of file downloaded, but I am downloaded the entire file over and over...
	  my $file = 'myfile.exe';
		getstore($url, $file);
});