Код
use LWP::UserAgent;
my $agent = new LWP::UserAgent();
my $response2=$agent->get($link,'Accept-Ranges'=>'bytes','Content-Range' => 'bytes 0-499/7363','Content-Length' => '500');
my $agent = new LWP::UserAgent();
my $response2=$agent->get($link,'Accept-Ranges'=>'bytes','Content-Range' => 'bytes 0-499/7363','Content-Length' => '500');
Не селен в Pelr, помогите кто знает.