Select Code to Download

for my $new ( <*.puz> ){
  my $old = $new;
...
  $new = 'subdir/' . $new;
  rename $old, $new;
}