% perl -le 'use strict; $x = 1; print $x'
Global symbol "$x" requires explicit package name at -e line 1.
Global symbol "$x" requires explicit package name at -e line 1.
Execution of -e aborted due to compilation errors.
% perl -le 'use strict; $main::x = 1; print $::x'
1

##</code><code>##

use strict;

# ... code under strict

{
  # strict-free block
  no strict;
  $nya_nya = 1;
}

# ... code under strict

##</code><code>##

use strict;
sub foobar { print "hello from foobar\n" }
my $sub_name = 'foobar';
{
  no strict 'refs';
  $sub_name->();
}
__END__
hello from foobar