sub match_new_rpms() {
  # Iterate through a listing of updated RPM
  # packages, comparing them one-by-one against
  # packages currently installed.


  my $workdir   = $config{workdir};
  my $today     = $config{today};

  my $ver       = $config{version};
  my @new       = `cat ${workdir}/fresh${ver}-${today}`;


  foreach my $fullpkg (@new) {
    chomp($fullpkg);
    my %fresh_n_clean = ($fullpkg => &chop_extension($fullpkg));
      foreach my $rpm (keys %fresh_n_clean) {
        my $args = `rpm -qa | grep $fresh_n_clean{$rpm}`;
        &download_packages(${fullpkg}) if ($args =~ m/^$/);
      }
  }
}
sub chop_extension() {
  my $fn = shift;
  $fn =~ (s/\.i\d{3}\.rpm//g);
  $fn =~ (s/\.noarch\.rpm//g);
  $fn =~ (s/\.athlon\.rpm//g);
  return $fn;