mp3concat -s 700 `ls`

##</code><code>##

  foreach my $arg ( @ARGV ) {
      doDir($arg), next if -d $arg;
      doFile($arg) if -f $arg;
  }
  ...
  sub doDir {
      my $dir = @_;
      opendir(D, $dir) or die "$dir: $!";
      foreach my $file ( grep { -f } readdir(D) ) {
          doFile($file);
      }
      closedir(D);
   }