Help for this page

Select Code to Download


  1. or download this
    C:> perl -TE "say $^V; say qq/Taint mode: ${^TAINT}/; system(qq/notepa
+d++.exe --help/)"
v5.32.1
...
C:> perl -E "say $^V; say qq/Taint mode: ${^TAINT}/; system(qq/notepad
+++.exe --help/)"
v5.32.1
Taint mode: 0
  2. or download this
    print "Real Group:      $(\n";
print "Effective Group: $)\n";
print "Real User:       $<\n";
print "Effective User:  $>\n";
print "Taint? ${^TAINT}\n";
  3. or download this
    C:> perl -TE "use warnings; use strict; say $^V; say qq/Taint mode: ${
+^TAINT}/; qx/notepad++.exe --help/"
v5.32.1
Taint mode: 1