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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

my $pidlist = <$settings>;

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

##</code><code>##

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