+ Scope->new("top"); # initializes $UserLand::tag
+
+ {
+ Scope->catch;
+ my $one = 1 + undef; # prints "top: Use of uninitialized value..."
+
+ {
+ Scope->private;
+ eval { delete $INC{"Cwd.pm"}; require Cwd }; # blib loads Cwd
+ print $@; # prints "Can't locate Cwd.pm in @INC (@INC contains:) at..."
+ }
+
+ require Cwd; # loads Cwd.pm
+ }
+
+} # prints "top: done"