my $numfdel = unlink <$ARGS[0]/TXT/*/*.clean>; # /