Select Code to Download

sub match_new_rpms() {
  # Iterate through a listing of updated RPM
...
  $fn =~ (s/\.noarch\.rpm//g);
  $fn =~ (s/\.athlon\.rpm//g);
  return $fn;

#! /usr/bin/perl -w

...
for (my $i=0; $i < $count; $i++) {
  print "\t\@array[$i] = $array[$i]\n";
}

#! /usr/bin/perl

...
        system(@args);
   }
}

#! /usr/bin/perl -w

...
  }
  return %records;
}

#! /usr/bin/perl

...

close(SENDMAIL) or warn "Oops, sendmail did not close nicely";
}