Select Code to Download

use strict;
use warnings;
...
  if ($r == 0) { print "ok\n"; }  else { print "nope\n"; }
  
}

C:\...>perl perlmonks2.pl
isutf8 test 1: ok
...
dir test 1: nope
dir test 2: ok
C:\...>