Select Code to Download

        die qq{no sids found\n} unless @sids;

if (not @sids){
  print qq{no sids found in $cpid\n};
  next;
}

    my $url = q{http://csr.wwiionline.com......etc.};

my $pidlist = <$settings>;

# Get list of pids and process all
while ( $pidlist = <$settings> ) {

while (my $pidlist = <$settings>){
  #...