for my $next (@ARGV){
  opendir(PWD,"$next") and
      my @files = readdir PWD or
      die "Open \"$_\" failed: $!";
  closedir PWD or die $!;
  print "$_\n" for @files;
}

##</code><code>##

s/test/whatever/ and print or print;