Select Code to Download

  opendir(PWD,"$next") && my @files = readdir PWD
      or die "Open \"$_\" failed: $!";

s/test/whatever/, print;

s/test/whatever/ => print;