for my $f (glob(qq["$src\\*"])) {