Select Code to Download

> cat Module.pm script.pl; perl script.pl 
#---- Module.pm
...

#---- output
NO NO NO at Module.pm line 1.

$\="\n";

...
print "exists TST::_ ", exists $TST::{_};

print -w main::_;

# OUTPUT 
exists main::_ 1
1
exists TST::_ 
1

#5.10
               If any of the file tests (or either the "stat" or "lsta
+t"
...
               As of Perl 5.9.1, as a form of purely syntactic sugar, 
+you can
               stack file test operators, in a way that "-f -w -x $fil
+e" is
               equivalent to "-x $file && -w _ && -f _