<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">opendir(DIR,".");
@files = readdir(DIR);


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

}
</pre></body></html>