Select Code to Download

while(1)
{
...

  $header = HTTP::Headers->new;
  $req = HTTP::Request->new(GET => $url); #IF you had "use strict", th
+is would show an error.

use strict;
use warnings;