>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