opendir(DIR,".");
@files = readdir(DIR);


foreach (@files) {
  if (/zip$/) {
    $new = $_;
    $new =~ s/zip/ZIP/;
    `cp $_ $new`;
  }

}