Select Code to Download

use IO::Socket;
use Net::hostent;

...
  }
  close $client;
}

#!/usr/bin/perl -w

my $num=1;
...
  $num++;
  sleep 5;
}