for my $drive (glob(q{/cygdrive/*})) { 
  for my $file ( File::...as before...->in( $drive ) ) {
    ## as before
  }
}