$\="\n";

package TST;

print "exists main::_ ", exists $main::{_};

print -f 'Module.pm' && -w _;

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

print -w main::_;