>perl -wMstrict -le
"print 'before: ', defined S() ? S() : 'undefined';
 ;;
 {
   my $x = 42;
   ;;
   sub S { return $x; }
 }
 ;;
 print 'after: ', defined S() ? S() : 'undefined';
"
before: undefined
after: 42

##</code><code>##

>perl -wMstrict -le
"print M::get_x();
 ;;
 use M;
 ;;
 print M::get_x();
"
42
42

##</code><code>##

package M;

{ my $x = 42;
  sub get_x { return $x; }
  sub set_x { return $x = $_[0]; }
  }

my $y = 1729;
sub cannot_access_x { return $y; }

1;